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

3
src/Main.hs
View File

@ -90,6 +90,9 @@ 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 null res
then putStrLn "No results found"
else do
if contentOnly if contentOnly
then mapM_ putStrLn (map content res) then mapM_ putStrLn (map content res)
else pprint res else pprint res