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

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

diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs
index e164ee7..70c6b1f 100644
--- a/client/src/View/SignIn.hs
+++ b/client/src/View/SignIn.hs
@@ -1,27 +1,25 @@
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE OverloadedStrings         #-}
-{-# LANGUAGE RecursiveDo               #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecursiveDo       #-}
 
 module View.SignIn
   ( view
   ) where
 
-import qualified Data.Either as Either
-import Data.Monoid ((<>))
-import Data.Text (Text)
-import Data.Time (NominalDiffTime)
-import Prelude hiding (error)
-import Reflex.Dom (MonadWidget, Event)
-import qualified Reflex.Dom as R
+import qualified Data.Either        as Either
+import           Data.Monoid        ((<>))
+import           Data.Text          (Text)
+import           Data.Time          (NominalDiffTime)
+import           Prelude            hiding (error)
+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 (SignIn(SignIn))
+import           Common.Model       (SignIn (SignIn))
 
-import Component.Input (InputIn(..), InputOut(..))
-import Component.Button (ButtonIn(..), ButtonOut(..))
-import qualified Component.Button as Component
-import qualified Component.Input as Component
+import           Component          (ButtonIn (..), ButtonOut (..),
+                                     InputIn (..), InputOut (..))
+import qualified Component          as Component
 
 view :: forall t m. MonadWidget t m => Either Text (Maybe Text) -> m ()
 view result =
@@ -75,11 +73,11 @@ showSignInResult result signInResult = do
   _ <- R.widgetHold (showInitResult result) $ R.ffor signInResult showResult
   R.blank
 
-  where showInitResult (Left error) = showError error
+  where showInitResult (Left error)           = showError error
         showInitResult (Right (Just success)) = showSuccess success
-        showInitResult (Right Nothing) = R.blank
+        showInitResult (Right Nothing)        = R.blank
 
-        showResult (Left error) = showError error
+        showResult (Left error)    = showError error
         showResult (Right success) = showSuccess success
 
         showError = R.divClass "error" . R.text
-- 
cgit v1.2.3