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/Index.hs | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

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

diff --git a/server/src/Controller/Index.hs b/server/src/Controller/Index.hs
index 8473c5c..bf4859d 100644
--- a/server/src/Controller/Index.hs
+++ b/server/src/Controller/Index.hs
@@ -3,26 +3,26 @@ module Controller.Index
   , signOut
   ) where
 
-import Control.Monad.IO.Class (liftIO)
-import Data.Text (Text)
-import Data.Time.Clock (getCurrentTime, diffUTCTime)
-import Network.HTTP.Types.Status (ok200)
-import Prelude hiding (error)
-import Web.Scotty hiding (get)
+import           Control.Monad.IO.Class    (liftIO)
+import           Data.Text                 (Text)
+import           Data.Time.Clock           (diffUTCTime, getCurrentTime)
+import           Network.HTTP.Types.Status (ok200)
+import           Prelude                   hiding (error)
+import           Web.Scotty                hiding (get)
 
-import qualified Common.Message as Message
-import Common.Message.Key (Key)
-import qualified Common.Message.Key as Key
-import Common.Model (InitResult(..), User(..))
+import qualified Common.Message            as Message
+import           Common.Message.Key        (Key)
+import qualified Common.Message.Key        as Key
+import           Common.Model              (InitResult (..), User (..))
 
-import Conf (Conf(..))
-import Model.Init (getInit)
+import           Conf                      (Conf (..))
 import qualified LoginSession
-import qualified Model.Query as Query
-import qualified Model.SignIn as SignIn
-import qualified Model.User as User
-import Secure (getUserFromToken)
-import View.Page (page)
+import           Model.Init                (getInit)
+import qualified Model.Query               as Query
+import qualified Model.SignIn              as SignIn
+import qualified Model.User                as User
+import           Secure                    (getUserFromToken)
+import           View.Page                 (page)
 
 get :: Conf -> Maybe Text -> ActionM ()
 get conf mbToken = do
@@ -70,7 +70,7 @@ validateSignIn conf textToken = do
                         SignIn.signInTokenToUsed . SignIn.id $ signIn
                         User.get . SignIn.email $ signIn
                       return $ case mbUser of
-                        Nothing -> Left Key.Secure_Unauthorized
+                        Nothing   -> Left Key.Secure_Unauthorized
                         Just user -> Right user
 
 getLoggedUser :: ActionM (Maybe User)
-- 
cgit v1.2.3