Warn log when no resume is parsed from search page

1 files changed, 9 insertions, 1 deletions

diff --git a/src/Fetch.hs b/src/Fetch.hs
index c80a980..ea82caa 100644
--- a/src/Fetch.hs
+++ b/src/Fetch.hs
@@ -1,9 +1,12 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Fetch
   ( fetchResumes
   , fetchAds
   ) where
 
 import Data.Text (Text)
+import qualified Data.Text.IO as T
 
 import Page
 
@@ -16,7 +19,12 @@ import qualified Parser.Resume as Resume
 import qualified Parser.Detail as Detail
 
 fetchResumes :: URL -> IO (Either Text [Resume])
-fetchResumes url = fmap Resume.parse <$> Page.get url
+fetchResumes url = do
+  resumes <- fmap Resume.parse <$> Page.get url
+  if null resumes
+    then T.putStrLn "Parsed 0 results!"
+    else return ()
+  return resumes
 
 fetchAds :: [Resume] -> IO (Either Text [Ad])
 fetchAds resumes = do