diff options
author | Joris | 2015-09-12 23:57:16 +0200 |
---|---|---|
committer | Joris | 2015-09-12 23:57:16 +0200 |
commit | a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b (patch) | |
tree | 05a613aef2d338f10bcdd394e520450656ed8f1c /src/server/SendMail.hs | |
parent | d87dbd1360c14df83552fd757438c23e5d7b9f9c (diff) | |
download | budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.gz budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.tar.bz2 budget-a48e79e2f7c1ab1ffb52b86ef9e900c75c5d023b.zip |
Adding UI income read-only
Diffstat (limited to 'src/server/SendMail.hs')
-rw-r--r-- | src/server/SendMail.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/server/SendMail.hs b/src/server/SendMail.hs index e57f345..8f62bb1 100644 --- a/src/server/SendMail.hs +++ b/src/server/SendMail.hs @@ -24,15 +24,11 @@ sendMail mail = do return result getMimeMail :: Mail -> M.Mail -getMimeMail (Mail from to subject plainBody htmlBody) = +getMimeMail (Mail from to subject plainBody) = let fromMail = M.emptyMail (address from) in fromMail { M.mailTo = map address to - , M.mailParts = - [ [ M.plainPart plainBody - , M.htmlPart htmlBody - ] - ] + , M.mailParts = [ [ M.plainPart plainBody ] ] , M.mailHeaders = [("Subject", subject)] } |