Fix some stream issues

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)