From ec8080580c0f08e0e3563d99e17b5a81797c48b2 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 13 Nov 2020 22:53:55 +0000 Subject: Add back another sqlite-reset call --- guix-build-coordinator/datastore/sqlite.scm | 11 +++++++---- 1 file 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 -- cgit v1.2.3