diff options
| author | Joris | 2016-03-20 22:38:44 +0100 |
|---|---|---|
| committer | Joris | 2016-03-21 20:43:55 +0100 |
| commit | 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 (patch) | |
| tree | 4ff8aeb6aa0f159548f8f506374276c1a2c97f7d /src/server/SendMail.hs | |
| parent | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (diff) | |
| download | budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.gz budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.bz2 budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.zip | |
use config-manager instead of ConfigFile
Diffstat (limited to 'src/server/SendMail.hs')
| -rw-r--r-- | src/server/SendMail.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/server/SendMail.hs b/src/server/SendMail.hs index 8f62bb1..7d537fc 100644 --- a/src/server/SendMail.hs +++ b/src/server/SendMail.hs @@ -24,12 +24,12 @@ sendMail mail = do return result getMimeMail :: Mail -> M.Mail -getMimeMail (Mail from to subject plainBody) = - let fromMail = M.emptyMail (address from) +getMimeMail (Mail mailFrom mailTo mailSubject mailPlainBody) = + let fromMail = M.emptyMail (address mailFrom) in fromMail - { M.mailTo = map address to - , M.mailParts = [ [ M.plainPart plainBody ] ] - , M.mailHeaders = [("Subject", subject)] + { M.mailTo = map address mailTo + , M.mailParts = [ [ M.plainPart mailPlainBody ] ] + , M.mailHeaders = [("Subject", mailSubject)] } address :: Text -> M.Address |