diff options
| author | Joris Guyonvarch | 2015-04-14 00:16:21 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-14 00:20:20 +0200 |
| commit | 280f030f652da4abb60c89845f5739ef2e3823bc (patch) | |
| tree | 00b83c223d9e6026f97e3a226d41c14202a6dd1d | |
| parent | d3dd0e129658e3617f9e6e4fa0910cb15c42520d (diff) | |
| download | ad-listener-280f030f652da4abb60c89845f5739ef2e3823bc.tar.gz ad-listener-280f030f652da4abb60c89845f5739ef2e3823bc.tar.bz2 ad-listener-280f030f652da4abb60c89845f5739ef2e3823bc.zip | |
Fixing compilation
| -rw-r--r-- | README.md | 3 | ||||
| -rw-r--r-- | src/AdListener.hs | 2 |
2 files changed, 2 insertions, 3 deletions
@@ -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: " |