diff options
author | Christopher Baines <mail@cbaines.net> | 2020-11-13 22:53:55 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-11-13 22:53:55 +0000 |
commit | ec8080580c0f08e0e3563d99e17b5a81797c48b2 (patch) | |
tree | 0a150d1158970c5ce5abd00679be66961cea7cd6 | |
parent | e393cbf8a33debd96fb1c0509fdd12fd197b57b6 (diff) | |
download | build-coordinator-ec8080580c0f08e0e3563d99e17b5a81797c48b2.tar build-coordinator-ec8080580c0f08e0e3563d99e17b5a81797c48b2.tar.gz |
Add back another sqlite-reset call
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 5e05ada..c51624e 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -1269,10 +1269,13 @@ EXCEPT "SELECT * FROM unprocessed_builds" #:cache? #t))) - (sqlite-map - (match-lambda - (#(uuid) uuid)) - statement))) + (let ((result (sqlite-map + (match-lambda + (#(uuid) uuid)) + statement))) + (sqlite-reset statement) + + result))) (define (fetch-propagated-priorities-for-unprocessed-builds db) (let ((statement |