diff options
Diffstat (limited to 'src/AdListener.hs')
| -rw-r--r-- | src/AdListener.hs | 27 |
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 = |