From 25e4cfb9aaf37e520c99d60b58b4510f9d869275 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 16 Jun 2023 09:57:01 +0100 Subject: Fix some stream issues --- scripts/guix-build-coordinator.in | 16 ++++++++++------ 1 file 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) -- cgit v1.2.3