From d985e879e574c770453590791bc35352c2632d01 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Wed, 12 Aug 2015 10:16:59 +0200
Subject: Translating sign in page and mail

---
 src/server/SendMail.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/server/SendMail.hs')

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 =
-- 
cgit v1.2.3