guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

database: Don't catch exceptions from (sqlite3) module.

Browse source
This commit is contained in:
Mathieu Lirzin 2016-07-20 00:14:45 +02:00
parent fb986fa8fe
commit f9938a3caa
No known key found for this signature in database
GPG key ID: 0ADEE10094604D37
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/cuirass/database.scm
View file

@ -71,7 +71,7 @@ database object."
(delete-file db-name))
(let ((db (sqlite-open db-name (logior SQLITE_OPEN_CREATE
SQLITE_OPEN_READWRITE))))
(for-each (λ (sql) (false-if-exception (sqlite-exec db sql)))
(for-each (λ (sql) (sqlite-exec db sql))
(read-sql-file (%package-schema-file)))
db)))