diff options
| -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 |