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/Component/Button.hs | 17 ++++++++---------
 client/src/Component/Input.hs  |  9 ++++-----
 2 files changed, 12 insertions(+), 14 deletions(-)

(limited to 'client/src/Component')

diff --git a/client/src/Component/Button.hs b/client/src/Component/Button.hs
index f21798c..9499045 100644
--- a/client/src/Component/Button.hs
+++ b/client/src/Component/Button.hs
@@ -1,5 +1,4 @@
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE OverloadedStrings         #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Component.Button
   ( ButtonIn(..)
@@ -8,17 +7,17 @@ module Component.Button
   , button
   ) where
 
-import qualified Data.Map as M
-import Data.Monoid ((<>))
-import Data.Text (Text)
-import qualified Data.Text as T
-import Reflex.Dom (MonadWidget, Event)
-import qualified Reflex.Dom as R
+import qualified Data.Map    as M
+import           Data.Monoid ((<>))
+import           Data.Text   (Text)
+import qualified Data.Text   as T
+import           Reflex.Dom  (Event, MonadWidget)
+import qualified Reflex.Dom  as R
 
 import qualified Icon
 
 data ButtonIn t m = ButtonIn
-  { _buttonIn_class :: Text
+  { _buttonIn_class   :: Text
   , _buttonIn_content :: m ()
   , _buttonIn_waiting :: Event t Bool
   }
diff --git a/client/src/Component/Input.hs b/client/src/Component/Input.hs
index 7111630..c3864b4 100644
--- a/client/src/Component/Input.hs
+++ b/client/src/Component/Input.hs
@@ -1,5 +1,4 @@
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE OverloadedStrings         #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Component.Input
   ( InputIn(..)
@@ -7,12 +6,12 @@ module Component.Input
   , input
   ) where
 
-import Data.Text (Text)
-import Reflex.Dom (MonadWidget, Dynamic, Event, (&), (.~), (=:))
+import           Data.Text  (Text)
+import           Reflex.Dom (Dynamic, Event, MonadWidget, (&), (.~), (=:))
 import qualified Reflex.Dom as R
 
 data InputIn t a b = InputIn
-  { _inputIn_reset :: Event t a
+  { _inputIn_reset       :: Event t a
   , _inputIn_placeHolder :: Text
   }
 
-- 
cgit v1.2.3