diff options
Diffstat (limited to 'src/server/SendMail.hs')
| -rw-r--r-- | src/server/SendMail.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/SendMail.hs b/src/server/SendMail.hs index 74d48ab..09d3d59 100644 --- a/src/server/SendMail.hs +++ b/src/server/SendMail.hs @@ -25,8 +25,8 @@ sendMail mail = do return result getMimeMail :: Mail -> M.Mail -getMimeMail (Mail to subject plainBody htmlBody) = - let fromMail = M.emptyMail (address "no-reply@shared-cost.guyonvarch.me") +getMimeMail (Mail from to subject plainBody htmlBody) = + let fromMail = M.emptyMail (address from) in fromMail { M.mailTo = map address to , M.mailParts = |