From 59c694b0e81deb30ec4e50d5d142b5eda645a27e Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 26 Mar 2016 12:44:27 +0100
Subject: Move no-reply mail from messages to conf

---
 src/server/View/Mail/SignIn.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/server/View')

diff --git a/src/server/View/Mail/SignIn.hs b/src/server/View/Mail/SignIn.hs
index dca261d..f776ddd 100644
--- a/src/server/View/Mail/SignIn.hs
+++ b/src/server/View/Mail/SignIn.hs
@@ -13,10 +13,13 @@ import qualified Model.Mail as M
 import Model.Message.Key
 import Model.Message
 
-getMail :: User -> Text -> [Text] -> M.Mail
-getMail user url to =
+import Conf (Conf)
+import qualified Conf as Conf
+
+getMail :: Conf -> User -> Text -> [Text] -> M.Mail
+getMail conf user url to =
   M.Mail
-    { M.from = (getMessage NoReplyMail)
+    { M.from = Conf.noReplyMail conf
     , M.to = to
     , M.subject = (getMessage SignInMailTitle)
     , M.plainBody = plainBody user url
-- 
cgit v1.2.3