diff options
-rw-r--r-- | guix-build-coordinator/build-allocator.scm | 8 |
1 files 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) |