aboutsummaryrefslogtreecommitdiff
path: root/src/server
diff options
context:
space:
mode:
Diffstat (limited to 'src/server')
-rw-r--r--src/server/Controller/SignIn.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index 1fb62ec..d4a1e25 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -53,13 +53,13 @@ signIn config login =
status ok200
Left _ -> do
status badRequest400
- text (TL.pack $ show SendEmailFail)
+ text . TL.pack . show $ SendEmailFail
Nothing -> do
status badRequest400
- text (TL.pack $ show UnauthorizedSignIn)
+ text . TL.pack . show $ UnauthorizedSignIn
else do
status badRequest400
- text (TL.pack $ show EnterValidEmail)
+ text . TL.pack . show $ EnterValidEmail
validateSignIn :: Config -> Text -> ActionM ()
validateSignIn config textToken = do