diff options
author | Joris | 2016-11-13 00:49:32 +0100 |
---|---|---|
committer | Joris | 2016-11-13 00:49:32 +0100 |
commit | 86a96decdb8892b10c5314eb916ef15a64204450 (patch) | |
tree | 6f41742d0466f77948680964188144fbff036902 /src/server/SendMail.hs | |
parent | bf6a0a0b32a7efb88f75c2e89b84d6907aeb10bc (diff) | |
download | budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.gz budget-86a96decdb8892b10c5314eb916ef15a64204450.tar.bz2 budget-86a96decdb8892b10c5314eb916ef15a64204450.zip |
Send weekly activity at start of week about previous week
Diffstat (limited to 'src/server/SendMail.hs')
-rw-r--r-- | src/server/SendMail.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/server/SendMail.hs b/src/server/SendMail.hs index 7d537fc..e434b38 100644 --- a/src/server/SendMail.hs +++ b/src/server/SendMail.hs @@ -7,6 +7,8 @@ module SendMail import Data.Text (Text) import qualified Data.Text as T import Data.Either (isLeft) +import qualified Data.Text.Lazy as LT +import Data.Text.Lazy.Builder (toLazyText, fromText) import Control.Exception (SomeException, try) import Control.Arrow (left) @@ -28,7 +30,7 @@ getMimeMail (Mail mailFrom mailTo mailSubject mailPlainBody) = let fromMail = M.emptyMail (address mailFrom) in fromMail { M.mailTo = map address mailTo - , M.mailParts = [ [ M.plainPart mailPlainBody ] ] + , M.mailParts = [ [ M.plainPart . strictToLazy $ mailPlainBody ] ] , M.mailHeaders = [("Subject", mailSubject)] } @@ -38,3 +40,6 @@ address addressEmail = { M.addressName = Nothing , M.addressEmail = addressEmail } + +strictToLazy :: Text -> LT.Text +strictToLazy = toLazyText . fromText |