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:
parent
eb01f46987
commit
53fcecd25f
|
@ -62,7 +62,7 @@ rows."
|
|||
(object->string arg)
|
||||
arg))
|
||||
|
||||
(let ((stmt (sqlite-prepare db sql)))
|
||||
(let ((stmt (sqlite-prepare db sql #:cache? #t)))
|
||||
(for-each (lambda (arg index)
|
||||
(sqlite-bind stmt index (normalize arg)))
|
||||
args (iota (length args) 1))
|
||||
|
|
Loading…
Reference in a new issue