From 7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 21 Nov 2015 19:02:49 +0100
Subject: Log details about sent mails in a file

---
 src/SendMail.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/SendMail.hs')

diff --git a/src/SendMail.hs b/src/SendMail.hs
index 23b1b80..0e1f91d 100644
--- a/src/SendMail.hs
+++ b/src/SendMail.hs
@@ -5,12 +5,25 @@ module SendMail
   ) where
 
 import Data.Text (Text)
+import qualified Data.Text as T
 import Data.Text.Lazy (fromStrict)
 
 import Network.Mail.Mime
 
+import Logger
+
 sendMail :: Text -> Text -> Text -> Text -> IO ()
 sendMail to from subject body = do
+  Logger.info $
+    T.concat
+      [ "Sending mail to "
+      , to
+      , " with subject “"
+      , subject
+      , "” and body “"
+      , body
+      , "”"
+      ]
   renderSendMail (simpleMail' (address to) (address from) subject (fromStrict body))
 
 address :: Text -> Address
-- 
cgit v1.2.3