yesod-1.1.0: scaffold/sqliteConnPool.cg

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