diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-25 20:50:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-25 20:50:35 +0100 |
| commit | e534675275621fae5ad9b4706aba7bc16016f9a5 (patch) | |
| tree | 55da6f08d0281ad535c4c074d37a771d23409b24 | |
| parent | adee12c3445e5b39aa04d4727f052568b26555ef (diff) | |
| download | build-coordinator-e534675275621fae5ad9b4706aba7bc16016f9a5.tar build-coordinator-e534675275621fae5ad9b4706aba7bc16016f9a5.tar.gz | |
Fix datastore-find-build-output
I don't think when was really working, the procedure was returning <undefined>
when it shouldn't have been.
| -rw-r--r-- | guix-build-coordinator/datastore.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore.scm b/guix-build-coordinator/datastore.scm index 47275c8..7fc16df 100644 --- a/guix-build-coordinator/datastore.scm +++ b/guix-build-coordinator/datastore.scm @@ -51,6 +51,7 @@ datastore (assq-ref build 'derivation-name)))) (any (lambda (output) - (when (string=? (assq-ref output 'name) output-name) - (assq-ref output 'output))) + (if (string=? (assq-ref output 'name) output-name) + (assq-ref output 'output) + #f)) outputs))) |