From 280f030f652da4abb60c89845f5739ef2e3823bc Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 14 Apr 2015 00:16:21 +0200
Subject: Fixing compilation

---
 src/AdListener.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/AdListener.hs b/src/AdListener.hs
index da3051d..04e070b 100644
--- a/src/AdListener.hs
+++ b/src/AdListener.hs
@@ -80,7 +80,7 @@ trySendMail config message =
         eitherMailSuccess <- sendMail mailTo message
         case eitherMailSuccess of
           Right () ->
-            return "Mail sent."
+            putStrLn "Mail sent."
           Left error ->
             T.putStrLn . T.concat $
               [ "Error sending mail: "
-- 
cgit v1.2.3