diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-26 11:06:48 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-26 11:21:27 +0200 |
| commit | f40ac8a535f0084348f6aa17b52f75826f606da2 (patch) | |
| tree | 0c4cc88973aeab3aa38ba53ee925e057b0540fec | |
| parent | c83d5d4da84d31e1c05e6e5d77c7f78fa4a38ad9 (diff) | |
| download | cuirass-f40ac8a535f0084348f6aa17b52f75826f606da2.tar cuirass-f40ac8a535f0084348f6aa17b52f75826f606da2.tar.gz | |
database: db-open: Add DB optional argument.
* src/cuirass/database.scm (db-open): Add DB optional argument.
| -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." |