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