From 47104f0b3965cd1dfba0f466afdb5e8983dc7bec Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Mar 2016 00:21:41 +0100
Subject: Do not try to init data after login mail was sent

---
 src/server/Controller/SignIn.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/server/Controller/SignIn.hs')

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
-- 
cgit v1.2.3