Add Database.Persist.Sqlite.createSqlitePoolWithConfig

persistent-sqlite/ChangeLog.md

@@ -2,6 +2,10 @@
 
 ## 2.13.3.0 (unreleased)
 
+* [#1524](https://github.com/yesodweb/persistent/pull/1524)
+    * Add Database.Persist.Sqlite.createSqlitePoolWithConfig to create a SQLite
+      connection pool with a connection string and ConnectionPoolConfig.
+      Using ConnectionPoolConfig, it is possible to set the connection idle timeout.
 * [#1486](https://github.com/yesodweb/persistent/pull/1486)
     * Add Database.Sqlite.open' which takes a ByteString
 * [#1522](https://github.com/yesodweb/persistent/pull/1522)

persistent-sqlite/Database/Persist/Sqlite.hs

@@ -30,6 +30,7 @@ module Database.Persist.Sqlite
     , withSqliteConnInfo
     , createSqlitePool
     , createSqlitePoolFromInfo
+    , createSqlitePoolWithConfig
     , module Database.Persist.Sql
     , SqliteConf (..)
     , SqliteConnectionInfo
@@ -133,6 +134,15 @@ createSqlitePoolFromInfo :: (MonadLoggerIO m, MonadUnliftIO m)
                          => SqliteConnectionInfo -> Int -> m (Pool SqlBackend)
 createSqlitePoolFromInfo connInfo = createSqlPool $ openWith const connInfo
 
+-- | Create a pool of SQLite connections.
+--
+-- @since 2.13.4.0
+createSqlitePoolWithConfig :: (MonadUnliftIO m, MonadLoggerIO m)
+                           => Text -- ^ connection string
+                           -> ConnectionPoolConfig -> m (Pool SqlBackend)
+createSqlitePoolWithConfig connString =
+    createSqlPoolWithConfig (openWith const (conStringToInfo connString))
+
 -- | Run the given action with a connection pool.
 --
 -- Like 'createSqlitePool', this should not be used with @:memory:@.