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