rnhmjoj/skeleton
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Handle empty list error

Browse Source
This commit is contained in:
rnhmjoj 2015-07-07 23:46:58 +02:00
parent 09a4246135
commit 25f6624e68
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Main.hs
View File

@ -90,7 +90,10 @@ search ProgArgs {..} = do
let res = if null exactMatches let res = if null exactMatches
then select (fuzzy searchTerm items) then select (fuzzy searchTerm items)
else select (byAttrib (Left exactMatches, Str searchTerm) items) else select (byAttrib (Left exactMatches, Str searchTerm) items)
if contentOnly if null res
then mapM_ putStrLn (map content res) then putStrLn "No results found"
else pprint res else do
when (not noClipboard) (sendClipboard (content $ head res)) if contentOnly
then mapM_ putStrLn (map content res)
else pprint res
when (not noClipboard) (sendClipboard (content $ head res))