diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/cuirass/database.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index dbbe00a..09eeef4 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -94,10 +94,10 @@ database object." (read-sql-file schema)) db)) -(define (db-open) +(define* (db-open #:optional (db (%package-database))) "Open database to store or read jobs and builds informations. Return a database object." - (sqlite-open (%package-database) SQLITE_OPEN_READWRITE)) + (sqlite-open db SQLITE_OPEN_READWRITE)) (define (db-close db) "Close database object DB." |