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 /guix-build-coordinator/build-allocator.scm | |
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.
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
-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) |