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

---
 client/src/View/Header.hs | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

(limited to 'client/src/View/Header.hs')

diff --git a/client/src/View/Header.hs b/client/src/View/Header.hs
index 705e054..711ba80 100644
--- a/client/src/View/Header.hs
+++ b/client/src/View/Header.hs
@@ -1,6 +1,5 @@
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE OverloadedStrings         #-}
-{-# LANGUAGE RecursiveDo               #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecursiveDo       #-}
 
 module View.Header
   ( view
@@ -8,19 +7,19 @@ module View.Header
   , HeaderOut(..)
   ) where
 
-import qualified Data.Map as M
-import Data.Time (NominalDiffTime)
-import Reflex.Dom (MonadWidget, Event)
-import qualified Reflex.Dom as R
-import Prelude hiding (init, error)
+import qualified Data.Map           as M
+import           Data.Time          (NominalDiffTime)
+import           Prelude            hiding (error, init)
+import           Reflex.Dom         (Event, MonadWidget)
+import qualified Reflex.Dom         as R
 
-import qualified Common.Message as Message
+import qualified Common.Message     as Message
 import qualified Common.Message.Key as Key
-import Common.Model (InitResult(..), Init(..), User(..))
-import qualified Common.Model as CM
+import           Common.Model       (Init (..), InitResult (..), User (..))
+import qualified Common.Model       as CM
 
-import Component.Button (ButtonIn(..))
-import qualified Component.Button as Component
+import           Component.Button   (ButtonIn (..))
+import qualified Component.Button   as Component
 import qualified Icon
 
 data HeaderIn = HeaderIn
@@ -55,7 +54,7 @@ nameSignOut initResult = case initResult of
       signOut <- R.elDynAttr "nameSignOut" attr $ do
         case CM.findUser (_init_currentUser init) (_init_users init) of
           Just user -> R.divClass "name" $ R.text (_user_name user)
-          Nothing -> R.blank
+          Nothing   -> R.blank
         signOutButton
 
     return signOut
-- 
cgit v1.2.3