From adee12c3445e5b39aa04d4727f052568b26555ef Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 25 Apr 2020 19:20:51 +0100 Subject: Handle unknown build results in the allocator --- guix-build-coordinator/build-allocator.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator/build-allocator.scm') 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))) -- cgit v1.2.3