diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-23 22:04:03 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:12:42 +0200 |
| commit | 5db6894ae24ef0925b19adcfcc15bc9f6e01143b (patch) | |
| tree | 94ef09931faa46dc850d9238112ef4ca1ca01eef | |
| parent | 41a275092986b8b80f26f8b3acf71d85f9008dda (diff) | |
| download | cuirass-5db6894ae24ef0925b19adcfcc15bc9f6e01143b.tar cuirass-5db6894ae24ef0925b19adcfcc15bc9f6e01143b.tar.gz | |
database: db-init: Add arguments for debugging.
| -rw-r--r-- | src/cuirass/database.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 101a02d..6c354bb 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -74,18 +74,18 @@ will be replaced by ARGS." (reverse! insts) (loop (cons inst insts)))))))) -(define (db-init) +(define* (db-init #:optional (db-name (%package-database)) + #:key (schema (%package-schema-file))) "Open the database to store and read jobs and builds informations. Return a database object." - (let ((db-name (%package-database))) - (when (file-exists? db-name) - (format (current-error-port) "Removing leftover database ~a~%" db-name) - (delete-file db-name)) - (let ((db (sqlite-open db-name (logior SQLITE_OPEN_CREATE - SQLITE_OPEN_READWRITE)))) - (for-each (λ (sql) (sqlite-exec db sql)) - (read-sql-file (%package-schema-file))) - db))) + (when (file-exists? db-name) + (format (current-error-port) "Removing leftover database ~a~%" db-name) + (delete-file db-name)) + (let ((db (sqlite-open db-name (logior SQLITE_OPEN_CREATE + SQLITE_OPEN_READWRITE)))) + (for-each (λ (sql) (sqlite-exec db sql)) + (read-sql-file schema)) + db)) (define (db-open) "Open database to store or read jobs and builds informations. Return a |