diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-20 18:15:22 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-20 18:15:22 +0100 |
commit | ab17ac019a55637ce2f35e59df708d3d4199e046 (patch) | |
tree | e040f1ab55296ba6130841a9f18b140aaef76ea4 | |
parent | 70bb02a40b954dbd8be3d21d1b716593be4c80b1 (diff) | |
download | build-coordinator-ab17ac019a55637ce2f35e59df708d3d4199e046.tar build-coordinator-ab17ac019a55637ce2f35e59df708d3d4199e046.tar.gz |
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.
-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) |