From 2f6283515360e3707aaeab66f4082d1c55da72cc Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 6 Dec 2020 10:57:44 +0000 Subject: 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 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 7bbf467..63c3525 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -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) -- cgit v1.2.3