diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-10 17:02:01 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-10 17:02:01 +0100 |
commit | 542e606211c0129691bd4d843505212abf6ec1ce (patch) | |
tree | 955a0257c4a965b5d02b323e39b7ced24318e597 /guix-build-coordinator/build-allocator.scm | |
parent | 3d7f31bf2637e1211e089ec5642f6cfe05539e90 (diff) | |
download | build-coordinator-542e606211c0129691bd4d843505212abf6ec1ce.tar build-coordinator-542e606211c0129691bd4d843505212abf6ec1ce.tar.gz |
Fix datastore-fetch-input-builds-for-unprocessed-builds
Previously it was ignoring outputs without builds or build results. This fixes
that.
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
-rw-r--r-- | guix-build-coordinator/build-allocator.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index 70aa59c..265de93 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -373,8 +373,10 @@ (every (match-lambda ((output . builds) (if (any (lambda (output-build) - (string=? (assq-ref output-build 'result) - "success")) + (string=? + (or (assq-ref output-build 'result) + "unknown") + "success")) builds) #t #f))) |