Setup stylish-haskell

1 files changed, 7 insertions, 6 deletions

diff --git a/server/src/Job/Kind.hs b/server/src/Job/Kind.hs
index af5d4f8..17997f7 100644
--- a/server/src/Job/Kind.hs
+++ b/server/src/Job/Kind.hs
@@ -2,11 +2,12 @@ module Job.Kind
   ( Kind(..)
   ) where
 
-import Database.SQLite.Simple (SQLData(SQLText))
-import Database.SQLite.Simple.FromField (fieldData, FromField(fromField))
-import Database.SQLite.Simple.Ok (Ok(Ok, Errors))
-import Database.SQLite.Simple.ToField (ToField(toField))
-import qualified Data.Text as T
+import qualified Data.Text                        as T
+import           Database.SQLite.Simple           (SQLData (SQLText))
+import           Database.SQLite.Simple.FromField (FromField (fromField),
+                                                   fieldData)
+import           Database.SQLite.Simple.Ok        (Ok (Errors, Ok))
+import           Database.SQLite.Simple.ToField   (ToField (toField))
 
 data Kind =
   MonthlyPayment
@@ -16,7 +17,7 @@ data Kind =
 instance FromField Kind where
   fromField field = case fieldData field of
     SQLText text -> Ok (read (T.unpack text) :: Kind)
-    _ -> Errors [error "SQLText field required for job kind"]
+    _            -> Errors [error "SQLText field required for job kind"]
 
 instance ToField Kind where
   toField kind = SQLText . T.pack . show $ kind