From 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Nov 2017 23:56:40 +0100
Subject: Setup stylish-haskell

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

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

diff --git a/server/src/Controller/SignIn.hs b/server/src/Controller/SignIn.hs
index 0086fa5..5552781 100644
--- a/server/src/Controller/SignIn.hs
+++ b/server/src/Controller/SignIn.hs
@@ -4,25 +4,25 @@ module Controller.SignIn
   ( signIn
   ) where
 
-import Control.Monad.IO.Class (liftIO)
-import Network.HTTP.Types.Status (ok200, badRequest400)
-import qualified Data.Text as T
-import qualified Data.Text.Encoding as TE
-import qualified Data.Text.Lazy as TL
-import Web.Scotty
+import           Control.Monad.IO.Class    (liftIO)
+import qualified Data.Text                 as T
+import qualified Data.Text.Encoding        as TE
+import qualified Data.Text.Lazy            as TL
+import           Network.HTTP.Types.Status (badRequest400, ok200)
+import           Web.Scotty
 
-import qualified Common.Message as Message
-import qualified Common.Message.Key as Key
-import Common.Model (SignIn(..))
+import qualified Common.Message            as Message
+import qualified Common.Message.Key        as Key
+import           Common.Model              (SignIn (..))
 
-import Conf (Conf)
+import           Conf                      (Conf)
 import qualified Conf
-import qualified Model.Query as Query
-import qualified Model.SignIn as SignIn
-import qualified Model.User as User
+import qualified Model.Query               as Query
+import qualified Model.SignIn              as SignIn
+import qualified Model.User                as User
 import qualified SendMail
-import qualified Text.Email.Validate as Email
-import qualified View.Mail.SignIn as SignIn
+import qualified Text.Email.Validate       as Email
+import qualified View.Mail.SignIn          as SignIn
 
 signIn :: Conf -> SignIn -> ActionM ()
 signIn conf (SignIn email) =
@@ -41,7 +41,7 @@ signIn conf (SignIn email) =
           maybeSentMail <- liftIO . SendMail.sendMail $ SignIn.mail conf user url [email]
           case maybeSentMail of
             Right _ -> textKey ok200 Key.SignIn_EmailSent
-            Left _ -> textKey badRequest400 Key.SignIn_EmailSendFail
+            Left _  -> textKey badRequest400 Key.SignIn_EmailSendFail
         Nothing -> textKey badRequest400 Key.Secure_Unauthorized
     else textKey badRequest400 Key.SignIn_EmailInvalid
   where textKey st key = status st >> (text . TL.fromStrict $ Message.get key)
-- 
cgit v1.2.3