[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Christopher Baines |
Date: |
Mon, 7 Dec 2020 04:48:47 -0500 (EST) |
branch: master
commit 23d75284bfb77b3fb0a3b1f25b6a1ce9e1db6fd7
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Dec 6 10:57:57 2020 +0000
database: Remove redundant reset calls.
sqlite-prepare will reset cached statements before returning them, so these
sqlite-reset calls are redundant.
* src/cuirass/database.scm (db-get-builds-query-min,
db-get-builds-query-max):
Remove sqlite-reset calls.
---
src/cuirass/database.scm | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 63c3525..587dc2d 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1290,7 +1290,6 @@ AND (:system IS NULL
(stmt (sqlite-prepare db stmt-text #:cache? #t)))
(apply sqlite-bind-arguments stmt
(query->bind-arguments query))
- (sqlite-reset stmt)
(let ((rows (sqlite-fold-right cons '() stmt)))
(sqlite-reset stmt)
(and=> (expect-one-row rows) vector->list)))))
@@ -1311,7 +1310,6 @@ AND (:system IS NULL
(stmt (sqlite-prepare db stmt-text #:cache? #t)))
(apply sqlite-bind-arguments stmt
(query->bind-arguments query))
- (sqlite-reset stmt)
(let ((rows (sqlite-fold-right cons '() stmt)))
(sqlite-reset stmt)
(and=> (expect-one-row rows) vector->list)))))