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

---
 README.md         | 3 +--
 src/AdListener.hs | 2 +-
 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: "
-- 
cgit v1.2.3