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
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue