Add Database init effect and integrate with main entrypoint

src/Main.hs

@@ -22,6 +22,7 @@ main :: IO ()
 main = do
   pool <- createConnectionPool
   let env = AppEnv { pool = pool }
+  runEffStack env $ databaseInit
   run port . serve proxy $ app env
 
 app :: AppEnv -> Server AppAPI
@@ -36,7 +37,10 @@ transformEff :: AppEnv -> ServerT AppAPI AppEff -> ServerT AppAPI Handler
 transformEff env = hoistServer proxy
   $ Handler
   . ExceptT
-  . runEff
+  . runEffStack env
+
+runEffStack :: AppEnv -> AppEff a -> IO (Either ServerError a)
+runEffStack env = runEff
   . runErrorNoCallStack
   . runReader env
   . runDatabaseIO