Handle empty list error

src/Main.hs

@@ -90,6 +90,9 @@ search ProgArgs {..} = do
   let res = if null exactMatches
               then select (fuzzy searchTerm items)
               else select (byAttrib (Left exactMatches, Str searchTerm) items)
+  if null res
+    then putStrLn "No results found"
+    else do
       if contentOnly
         then mapM_ putStrLn (map content res)
       else pprint res