14 lines
583 B
Plaintext
14 lines
583 B
Plaintext
runConnectionPool :: MonadControlIO m => SqlPersist m a -> ConnectionPool -> m a
|
|
runConnectionPool = runSqlPool
|
|
|
|
withConnectionPool :: MonadControlIO m => AppConfig DefaultEnv -> (ConnectionPool -> m a) -> m a
|
|
withConnectionPool conf f = do
|
|
dbConf <- liftIO $ load~upper~ (appEnv conf)
|
|
with~upper~Pool (sqlDatabase dbConf) (sqlPoolSize dbConf) f
|
|
|
|
-- Example of making a dynamic configuration static
|
|
-- use /return $(mkConnStr Production)/ instead of loadConnStr
|
|
-- mkConnStr :: AppEnvironment -> Q Exp
|
|
-- mkConnStr env = qRunIO (loadConnStr env) >>= return . LitE . StringL
|
|
|