aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-build-coordinator/build-allocator.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm
index e89c719..5286126 100644
--- a/guix-build-coordinator/build-allocator.scm
+++ b/guix-build-coordinator/build-allocator.scm
@@ -275,7 +275,12 @@
(begin
(for-each
(lambda (build)
- (when (eq? 0 (assq-ref build 'processed))
+ (when (and (eq? 0 (assq-ref build 'processed))
+ ;; The build might not be included
+ ;; in tis allocation, so skip it
+ ;; if it isn't
+ (hash-ref derived-build-priorities-hash
+ (assq-ref build 'uuid)))
(treat-build-as-required
setup-failure-build-id
(assq-ref build 'uuid)