diff options
-rw-r--r-- | scripts/guix-build-coordinator.in | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 787542c..2eea161 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -37,6 +37,7 @@ (srfi srfi-19) (srfi srfi-37) (srfi srfi-43) + (srfi srfi-71) (ice-9 match) (ice-9 streams) (ice-9 suspendable-ports) @@ -614,10 +615,11 @@ tags: #:canceled #f #:relationship 'no-dependent-builds))) - (stream-map - (lambda (build-details) - (assoc-ref build-details "uuid")) - response))) + (stream->list + (stream-map + (lambda (build-details) + (assoc-ref build-details "uuid")) + response)))) (match (assq-ref opts 'arguments) (#f @@ -696,8 +698,10 @@ tags: (simple-format (current-error-port) "requesting matching builds") (force-output (current-error-port)) - (let* ((matching-builds (find-matching-builds)) - (count (length matching-builds))) + (let ((matching-builds + count + (stream->list&length + (find-matching-builds)))) (simple-format (current-error-port) "\nfound ~A builds matching criteria\n" count) |