Line wrap

src/Core.hs

@@ -22,15 +22,23 @@ import qualified Servant                  as S
 --
 -- Routes
 --
-type Root     = Get '[PlainText] T.Text
-type UserList = "user" S.:> Get '[JSON] [User]
-type UserGet  = "user" S.:> Capture "userId"     Int    S.:> Get  '[JSON] User
-type UserPost = "user" S.:> ReqBody '[PlainText] String S.:> PostCreated '[PlainText] NoContent
+type Root = Get '[PlainText] T.Text
+
+type UserList = "user"
+  S.:> Get '[JSON] [User]
+
+type UserGet = "user"
+  S.:> Capture "userId" Int
+  S.:> Get '[JSON] User
+
+type UserPost = "user"
+  S.:> ReqBody '[PlainText] String
+  S.:> PostCreated '[PlainText] NoContent
 
 type AppAPI = Root
-      :<|> UserList
-      :<|> UserGet
-      :<|> UserPost
+  :<|> UserList
+  :<|> UserGet
+  :<|> UserPost
 
 --
 -- Core data
@@ -49,27 +57,45 @@ instance FromJSON User
 --
 -- Effects
 --
-type AppEff = Eff '[Database, Reader AppEnv, FileSystem, Logger, Error ServerError, IOE]
+type AppEff = Eff '[ Database
+                   , Reader AppEnv
+                   , FileSystem
+                   , Logger
+                   , Error ServerError
+                   , IOE
+                   ]
 
 data AppEnv = AppEnv { pool :: Pool Connection }
 
 -- Database
 data Database :: Effect where
-  DatabaseRead  :: (ToField a, Show a, FromRow b) => (Query, a) -> Database (Eff es) [b]
-  DatabaseRead_ :: (FromRow b)                    =>  Query     -> Database (Eff es) [b]
-  DatabaseWrite :: (ToField a, Show a)            => (Query, a) -> Database (Eff es) ()
+  DatabaseRead
+    :: (ToField a, Show a, FromRow b) => (Query, a) -> Database (Eff es) [b]
+  DatabaseRead_
+    :: (FromRow b) => Query -> Database (Eff es) [b]
+  DatabaseWrite
+    :: (ToField a, Show a) => (Query, a) -> Database (Eff es) ()
 
 type instance DispatchOf Database = 'Dynamic
 
-type DatabaseEffects es = (Reader AppEnv :> es, Logger :> es, Error ServerError :> es, IOE :> es)
+type DatabaseEffects es = ( Reader AppEnv :> es
+                          , Logger :> es
+                          , Error ServerError :> es
+                          , IOE :> es
+                          )
 
-databaseRead  :: (ToField a, Show a, Database :> es, Error ServerError :> es) => (Query, a) -> Eff es [User]
+databaseRead
+  :: (ToField a, Show a, Database :> es, Error ServerError :> es)
+  => (Query, a) -> Eff es [User]
 databaseRead = send . DatabaseRead
 
-databaseRead_  :: (Database :> es, Error ServerError :> es) => Query -> Eff es [User]
+databaseRead_
+  :: (Database :> es, Error ServerError :> es) => Query -> Eff es [User]
 databaseRead_ = send . DatabaseRead_
 
-databaseWrite :: (ToField a, Show a, Database :> es, Error ServerError :> es) => (Query, a) -> Eff es ()
+databaseWrite
+  :: (ToField a, Show a, Database :> es, Error ServerError :> es)
+  => (Query, a) -> Eff es ()
 databaseWrite = send . DatabaseWrite
 
 -- Logger
@@ -81,7 +107,8 @@ type instance DispatchOf Logger = 'Dynamic
 writeLog :: (Logger :> es, Error ServerError :> es) => String -> Eff es ()
 writeLog = send . WriteLog
 
-runLoggerIO :: (IOE :> es, Error ServerError :> es) => Eff (Logger : es) a -> Eff es a
+runLoggerIO :: (IOE :> es, Error ServerError :> es) =>
+  Eff (Logger : es) a -> Eff es a
 runLoggerIO = interpret $ \_ -> \case
   WriteLog msg -> log msg
   where