diff options
author | Joris | 2015-11-21 19:02:49 +0100 |
---|---|---|
committer | Joris | 2015-11-21 19:02:54 +0100 |
commit | 7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae (patch) | |
tree | 000d1d157ff33917358ded8100980d018e437f7f /src/SendMail.hs | |
parent | 6850159bf998a209ad7b6d7103d113a54659937e (diff) | |
download | events-7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae.tar.gz events-7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae.tar.bz2 events-7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae.zip |
Log details about sent mails in a file
Diffstat (limited to 'src/SendMail.hs')
-rw-r--r-- | src/SendMail.hs | 13 |
1 files changed, 13 insertions, 0 deletions
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 |