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/Controller/SignIn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index b87f7a1..95cfd07 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -46,7 +46,7 @@ signIn conf login =
         Just user -> do
           token <- liftIO . runDb $ createSignInToken login
           let url = T.concat ["http://", hostname conf, "?signInToken=", token]
-          maybeSentMail <- liftIO . sendMail $ SignIn.getMail (entityVal user) url [login]
+          maybeSentMail <- liftIO . sendMail $ SignIn.getMail conf (entityVal user) url [login]
           case maybeSentMail of
             Right _ ->
               status ok200
-- 
cgit v1.2.3