Warn log when no resume is parsed from search page

1 files changed, 13 insertions, 14 deletions

diff --git a/src/AdListener.hs b/src/AdListener.hs
index 9946d9e..3db4c6a 100644
--- a/src/AdListener.hs
+++ b/src/AdListener.hs
@@ -38,7 +38,7 @@ start conf = do
       showErrorAndListenBack conf [] error
     Right resumes -> do
       let newURLs = map url resumes
-      putStrLn "Listening to new ads…"
+      T.putStrLn "Listening to new ads…"
       waitListenInterval conf
       listenToNewAdsWithViewedURLs conf newURLs
 
@@ -59,19 +59,18 @@ listenToNewAdsWithResumes conf viewedURLs resumes =
         case eitherNewAds of
           Left error ->
             showErrorAndListenBack conf viewedURLs error
-          Right newAds ->
-            do
-              time <- getCurrentFormattedTime
-              if not (null newAds)
-                then
-                  let message = P.renderConsoleAds conf time newAds
-                  in  do
-                        T.putStrLn message
-                        trySendMail conf newAds
-                else
-                  return ()
-              waitListenInterval conf
-              listenToNewAdsWithViewedURLs conf (viewedURLs ++ newURLs)
+          Right newAds -> do
+            time <- getCurrentFormattedTime
+            if not (null newAds)
+              then
+                let message = P.renderConsoleAds conf time newAds
+                in  do
+                      T.putStrLn message
+                      trySendMail conf newAds
+              else
+                return ()
+            waitListenInterval conf
+            listenToNewAdsWithViewedURLs conf (viewedURLs ++ newURLs)
 
 trySendMail :: Conf -> [Ad] -> IO ()
 trySendMail conf ads =