From e8d2e03e5ba111547223e09a1aa621c10a717680 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 16 Nov 2020 19:36:09 +0000 Subject: Guard against a potential crash in the basic allocator Builds introduced while the allocator is running may cause this bit to crash, so just ignore any builds that aren't accounted for. --- guix-build-coordinator/build-allocator.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3