diff options
| author | Joris | 2016-03-12 00:21:41 +0100 |
|---|---|---|
| committer | Joris | 2016-03-12 00:21:41 +0100 |
| commit | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (patch) | |
| tree | ac62eac33c624d14de93f3958270cbf60973b8b6 /src/server/Controller | |
| parent | 9d57e149fcb124a28813c56f83cf254eb92baa42 (diff) | |
Do not try to init data after login mail was sent
Diffstat (limited to 'src/server/Controller')
| -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 |