Handle empty list error

2015-07-07 23:46:58 +02:00 · 2015-07-07 23:46:58 +02:00 · 25f6624e68
commit 25f6624e68
parent 09a4246135
1 changed files with 7 additions and 4 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -90,7 +90,10 @@ search ProgArgs {..} = do
  let res = if null exactMatches
              then select (fuzzy searchTerm items)
              else select (byAttrib (Left exactMatches, Str searchTerm) items)
-  if contentOnly
-    then mapM_ putStrLn (map content res)
-    else pprint res
-  when (not noClipboard) (sendClipboard (content $ head res))
+  if null res
+    then putStrLn "No results found"
+    else do
+      if contentOnly
+        then mapM_ putStrLn (map content res)
+      else pprint res
+      when (not noClipboard) (sendClipboard (content $ head res))