summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMathieu Lirzin <mthl@gnu.org>2016-07-26 11:06:48 +0200
committerMathieu Lirzin <mthl@gnu.org>2016-07-26 11:21:27 +0200
commitf40ac8a535f0084348f6aa17b52f75826f606da2 (patch)
tree0c4cc88973aeab3aa38ba53ee925e057b0540fec /src
parentc83d5d4da84d31e1c05e6e5d77c7f78fa4a38ad9 (diff)
downloadcuirass-f40ac8a535f0084348f6aa17b52f75826f606da2.tar
cuirass-f40ac8a535f0084348f6aa17b52f75826f606da2.tar.gz
database: db-open: Add DB optional argument.
* src/cuirass/database.scm (db-open): Add DB optional argument.
Diffstat (limited to 'src')
-rw-r--r--src/cuirass/database.scm4
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."