diff options
| author | Joris Guyonvarch | 2015-08-12 10:16:59 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-12 10:16:59 +0200 |
| commit | d985e879e574c770453590791bc35352c2632d01 (patch) | |
| tree | 15c4bb98b0f54e8557c6b4cbe527f5dd24cc0a9b /src/server/SendMail.hs | |
| parent | 892a7dd19a92fc18767984e624b8a5026dce61e4 (diff) | |
Translating sign in page and mail
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 = |