Use SERIAL for users id field; general cleanup

2024-10-14 13:05:17 -05:00
parent a7836ad08f
commit 0808fe130a
3 changed files with 38 additions and 41 deletions
--- a/src/Core.hs
+++ b/src/Core.hs
@@ -19,12 +19,13 @@ import Servant hiding                       ((:>), throwError)
 --
 -- Core data types
 --
-type AppEff = Eff '[ Logger
-                   , Database
-                   , Reader AppEnv
-                   , Error ServerError
-                   , IOE
-                   ]
+type AppEff = 
+  Eff '[ Logger
+       , Database
+       , Reader AppEnv
+       , Error ServerError
+       , IOE
+       ]

 data AppEnv = AppEnv { pool :: Pool Connection }