Currently DB connection pool size is hardcoded to 10 here:
|
pool <- liftIO . runLoggerIO checkedLogEnv $ createPostgresqlPoolModified (modifyConn modifyConnString) connStr 10 |
This value should be taken from config (part of esqDBCfg dhall config) at startup.