diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-25 19:20:51 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-25 19:20:51 +0100 |
| commit | adee12c3445e5b39aa04d4727f052568b26555ef (patch) | |
| tree | eb4802d1e9b83ab53764e2b885bf63a991e0c87c /guix-build-coordinator/build-allocator.scm | |
| parent | c6e4ab08e3444ce57b042f9a9b5174685593d4d2 (diff) | |
| download | build-coordinator-adee12c3445e5b39aa04d4727f052568b26555ef.tar build-coordinator-adee12c3445e5b39aa04d4727f052568b26555ef.tar.gz | |
Handle unknown build results in the allocator
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
| -rw-r--r-- | guix-build-coordinator/build-allocator.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index d8ec595..2b276ff 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -43,7 +43,8 @@ (log "considering missing input:" output) (any (lambda (output-build) (let ((build-successful? - (string=? (assq-ref output-build 'result) + (string=? (or (assq-ref output-build 'result) + "unknown") "success"))) (when build-successful? (log "found successful build:" (assq-ref output-build 'uuid))) |