diff options
Diffstat (limited to 'src/server/View/Mail')
| -rw-r--r-- | src/server/View/Mail/SignIn.hs | 9 |
1 files changed, 6 insertions, 3 deletions
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 |