Fixing compilation

2 files changed, 2 insertions, 3 deletions

diff --git a/README.md b/README.md
index 14458dd..6a59c35 100644
--- a/README.md
+++ b/README.md
@@ -30,5 +30,4 @@ url = http://www.leboncoin.fr/locations/offres/ile_de_france/?f=a&th=1
 Email
 -----
 
-If you provide mail addresses, leboncoin-listener will try to send mails with
-the sendmail command.
+leboncoin-listener uses the sendmail command under the hood.
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: "