guix
/
guix-cuirass
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git
2
0
Fork 0
Code Issues Releases Wiki Activity

database: db-init: Add arguments for debugging.

This commit is contained in:
Mathieu Lirzin 2016-07-23 22:04:03 +02:00
parent 41a2750929
commit 5db6894ae2
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/cuirass/database.scm
View File

@ -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