Support logging to PSQL; general improvement to logging effect; cleanup and clarification of names

2024-10-13 16:49:57 -05:00
parent 64bf8f337c
commit 715efce723
7 changed files with 125 additions and 74 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -31,6 +31,7 @@ app env = transformEff env
     :<|> userListHandler
     :<|> userGetHandler
     :<|> userPostHandler
+     :<|> userDeleteHandler

 transformEff :: AppEnv -> ServerT AppAPI AppEff -> ServerT AppAPI Handler
 transformEff env = hoistServer proxy
@@ -38,10 +39,10 @@ transformEff env = hoistServer proxy
  . ExceptT
  . runEff
  . runErrorNoCallStack
-  . runLoggerIO
-  . runFileSystem
  . runReader env
  . runDatabaseIO
+  . runLoggerPSQL
+  . runFileSystem

 port :: Int
 port = 8080