diff options
Diffstat (limited to 'src/server/Controller/SignIn.hs')
| -rw-r--r-- | src/server/Controller/SignIn.hs | 6 |
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 |