From ab17ac019a55637ce2f35e59df708d3d4199e046 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 20 May 2020 18:15:22 +0100 Subject: Fetch the unprocessed builds after the prioritites This might help avoid any issue with having a unprocessed build, but not knowing the priority, as it's just been processed. --- guix-build-coordinator/build-allocator.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index 2fc41e0..48896ab 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -298,9 +298,7 @@ (let* ((agents (datastore-list-agents datastore)) (setup-failures-hash - (datastore-fetch-setup-failures datastore)) - (build-ids-for-unprocessed-builds-with-built-inputs - (datastore-list-unprocessed-builds-with-built-inputs datastore))) + (datastore-fetch-setup-failures datastore))) (define (filter-builds-for-agent agent-id) (define (relevant-setup-failure? setup-failure) @@ -340,7 +338,9 @@ (let ((derived-build-priorities-hash (datastore-fetch-unprocessed-builds-with-propagated-priorities - datastore))) + datastore)) + (build-ids-for-unprocessed-builds-with-built-inputs + (datastore-list-unprocessed-builds-with-built-inputs datastore))) (define (build-sorting-function-for-agent agent-id) (lambda (a b) -- cgit v1.2.3