Setup stylish-haskell

1 files changed, 14 insertions, 14 deletions

diff --git a/client/src/Main.hs b/client/src/Main.hs
index 14f0fee..cbc881c 100644
--- a/client/src/Main.hs
+++ b/client/src/Main.hs
@@ -2,22 +2,22 @@ module Main
   ( main
   ) where
 
-import qualified Data.Aeson as Aeson
-import qualified Data.ByteString.Lazy as LB
-import qualified Data.JSString.Text as Dom
-import qualified Data.Text.Encoding as T
-import qualified JSDOM as Dom
-import qualified JSDOM.Generated.HTMLElement as Dom
+import qualified Data.Aeson                           as Aeson
+import qualified Data.ByteString.Lazy                 as LB
+import qualified Data.JSString.Text                   as Dom
+import qualified Data.Text.Encoding                   as T
+import qualified JSDOM                                as Dom
+import qualified JSDOM.Generated.HTMLElement          as Dom
 import qualified JSDOM.Generated.NonElementParentNode as Dom
-import JSDOM.Types (JSM, HTMLElement(..))
-import qualified JSDOM.Types as Dom
-import Prelude hiding (init, error)
+import           JSDOM.Types                          (HTMLElement (..), JSM)
+import qualified JSDOM.Types                          as Dom
+import           Prelude                              hiding (error, init)
 
-import Common.Model (InitResult(InitEmpty))
-import qualified Common.Message as Message
-import qualified Common.Message.Key as Key
+import qualified Common.Message                       as Message
+import qualified Common.Message.Key                   as Key
+import           Common.Model                         (InitResult (InitEmpty))
 
-import qualified View.App as App
+import qualified View.App                             as App
 
 main :: JSM ()
 main = do
@@ -33,7 +33,7 @@ readInit = do
       text <- Dom.textFromJSString <$> Dom.getInnerText (Dom.uncheckedCastTo HTMLElement node)
       return $ case Aeson.decode (LB.fromStrict . T.encodeUtf8 $ text) of
         Just init -> init
-        Nothing -> initParseError
+        Nothing   -> initParseError
     _ ->
       return initParseError
   where initParseError = InitEmpty (Left $ Message.get Key.SignIn_ParseError)