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

database: Cache prepared statements.

Suggested by Danny Milosavljevic.

* src/cuirass/database.scm (sqlite-exec): Pass #:cache? to
'sqlite-prepare'.
This commit is contained in:
Ludovic Courtès 2018-02-08 11:46:29 +01:00
parent eb01f46987
commit 53fcecd25f

View file

@ -62,7 +62,7 @@ rows."
(object->string arg) (object->string arg)
arg)) arg))
(let ((stmt (sqlite-prepare db sql))) (let ((stmt (sqlite-prepare db sql #:cache? #t)))
(for-each (lambda (arg index) (for-each (lambda (arg index)
(sqlite-bind stmt index (normalize arg))) (sqlite-bind stmt index (normalize arg)))
args (iota (length args) 1)) args (iota (length args) 1))