Line wrap

src/Main.hs

@@ -7,7 +7,7 @@ import Handlers
 import Control.Monad.Except     (ExceptT (ExceptT))
 import Data.List
 import Effectful
-import Effectful.Error.Static   (Error, runError, runErrorNoCallStack, throwError)
+import Effectful.Error.Static   (Error, runErrorNoCallStack, throwError)
 import Effectful.FileSystem
 import Effectful.Reader.Static
 import Network.Wai.Handler.Warp (run)
@@ -24,17 +24,17 @@ main = do
   run port $ serve proxy $ app env
 
 app :: AppEnv -> Server AppAPI
-app env = transformEff env 
+app env = transformEff env
         $ rootHandler
      :<|> userListHandler
      :<|> userGetHandler
      :<|> userPostHandler
 
 transformEff :: AppEnv -> ServerT AppAPI AppEff -> ServerT AppAPI Handler
-transformEff env = hoistServer proxy 
-  $ Handler 
-  . ExceptT 
-  . runEff 
+transformEff env = hoistServer proxy
+  $ Handler
+  . ExceptT
+  . runEff
   . runErrorNoCallStack
   . runLoggerIO
   . runFileSystem