diff options
author | Christopher Baines <mail@cbaines.net> | 2020-11-16 19:36:09 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-11-16 19:36:09 +0000 |
commit | e8d2e03e5ba111547223e09a1aa621c10a717680 (patch) | |
tree | d0e881e04172b90a67765e1715ce1a2bc4bcf19c | |
parent | 05124a17e1f66bb35679e88f596a70f359c93a18 (diff) | |
download | build-coordinator-e8d2e03e5ba111547223e09a1aa621c10a717680.tar build-coordinator-e8d2e03e5ba111547223e09a1aa621c10a717680.tar.gz |
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.
-rw-r--r-- | guix-build-coordinator/build-allocator.scm | 7 |
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) |