Cleanup type signatures and start working on debug env run

2024-10-16 08:10:10 -05:00
parent 0808fe130a
commit ffec891f26
5 changed files with 77 additions and 79 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -42,6 +42,13 @@ runAppEff env = runEff
              . runDatabaseIO
              . runLoggerPSQL

+runAppDebug :: AppEnv -> AppEff a -> IO (Either ServerError a)
+runAppDebug env = runEff
+                . runErrorNoCallStack
+                . runReader env
+                . runDatabaseDebug
+                . runLoggerConsole
+
 port :: Int
 port = 8080