aboutsummaryrefslogtreecommitdiff
path: root/src/server/Controller
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Controller')
-rw-r--r--src/server/Controller/SignIn.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index 0fbe7c5..1b8121d 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -45,7 +45,7 @@ signIn conf login =
"?signInToken=",
token
]
- maybeSentMail <- liftIO . sendMail $ SignIn.getMail conf (entityVal user) url [login]
+ maybeSentMail <- liftIO . sendMail $ SignIn.mail conf (entityVal user) url [login]
case maybeSentMail of
Right _ ->
status ok200