Skip to content
Snippets Groups Projects
Commit 068ad30a authored by Christopher Baines's avatar Christopher Baines
Browse files

database: Don't finalise cached statements.

All these statements are cached, but that's pointless if they're finalized
after use, because they'll need recreating on next use.

* src/cuirass/database.scm (%sqlite-exec, db-get-builds-query-min,
db-get-builds-query-max): Replace sqlite-finalize with sqlite-reset.
parent 38f48c80
No related branches found
No related tags found
No related merge requests found
......@@ -117,7 +117,7 @@ rows."
(sqlite-bind stmt index (normalize arg)))
args (iota (length args) 1))
(let ((result (sqlite-fold-right cons '() stmt)))
(sqlite-finalize stmt)
(sqlite-reset stmt)
result)))
(define-syntax sqlite-exec/bind
......@@ -1292,7 +1292,7 @@ AND (:system IS NULL
(query->bind-arguments query))
(sqlite-reset stmt)
(let ((rows (sqlite-fold-right cons '() stmt)))
(sqlite-finalize stmt)
(sqlite-reset stmt)
(and=> (expect-one-row rows) vector->list)))))
(define (db-get-builds-query-max query)
......@@ -1313,7 +1313,7 @@ AND (:system IS NULL
(query->bind-arguments query))
(sqlite-reset stmt)
(let ((rows (sqlite-fold-right cons '() stmt)))
(sqlite-finalize stmt)
(sqlite-reset stmt)
(and=> (expect-one-row rows) vector->list)))))
(define (db-get-builds-min eval status)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment