Added name config to SQLite

IntersectMBO · Sep 23, 2022 · 969f15f · 969f15f
1 parent 935562d
commit 969f15f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/plutus-pab/src/Plutus/PAB/App.hs b/plutus-pab/src/Plutus/PAB/App.hs
@@ -368,9 +368,9 @@ runBeamMigrationSqlite trace conn = Sqlite.runBeamSqliteDebug (logDebugString tr
   autoMigrate Sqlite.migrationBackend checkedSqliteDb
 
 dbConnectSqlite :: Sqlite.DbConfig -> Trace IO (PABLogMsg (Builtin a)) -> IO (Pool Sqlite.Connection)
-dbConnectSqlite Sqlite.DbConfig {dbConfigPoolSize} trace = do
-  pool <- Pool.createPool (Sqlite.open $ unpack "./plutus-pab.db") Sqlite.close dbConfigPoolSize 5_000_000 5
-  logDebugString trace $ "Connecting to DB: " <> "./plutus-pab.db"
+dbConnectSqlite Sqlite.DbConfig {dbConfigFile, dbConfigPoolSize} trace = do
+  pool <- Pool.createPool (Sqlite.open $ unpack dbConfigFile) Sqlite.close dbConfigPoolSize 5_000_000 5
+  logDebugString trace $ "Connecting to DB: " <> dbConfigFile
   return pool
 
 handleContractDefinition ::