From 4de52f287fd9f0cdae9b6cb55678e85458cbbc04 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Wed, 15 Apr 2015 00:10:22 +0200
Subject: Adding a title to the mail

---
 src/Mail.hs | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

(limited to 'src/Mail.hs')

diff --git a/src/Mail.hs b/src/Mail.hs
index bb96142..5fc2f24 100644
--- a/src/Mail.hs
+++ b/src/Mail.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Mail
   ( sendMail
   ) where
@@ -11,10 +13,19 @@ import Network.Email.Sendmail (sendmail)
 
 import Utils.Either (mapLeft)
 
-sendMail :: [Text] -> Text -> IO (Either Text ())
-sendMail mailTo body =
+sendMail :: [Text] -> Text -> Text -> IO (Either Text ())
+sendMail mailTo subject message =
   let from = Just "no-reply@leboncoin-listener.com"
-  in  safeSendMail from (map T.unpack $ mailTo) (T.unpack body)
+  in  safeSendMail from (map T.unpack $ mailTo) (T.unpack $ makeBody subject message)
+
+makeBody :: Text -> Text -> Text
+makeBody subject message =
+  T.concat
+    [ "Subject: "
+    , subject
+    , "\n\n"
+    , message
+    ]
 
 safeSendMail :: Maybe String -> [String] -> String -> IO (Either Text ())
 safeSendMail from to body =
-- 
cgit v1.2.3