From ae45764821dc3c04eeb8c2171f14d36256ce4027 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 14 Nov 2016 21:47:10 +0100
Subject: Warn log when no resume is parsed from search page

---
 src/Fetch.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/Fetch.hs')

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
-- 
cgit v1.2.3