aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-06-16 09:57:01 +0100
committerChristopher Baines <mail@cbaines.net>2023-06-16 09:57:01 +0100
commit25e4cfb9aaf37e520c99d60b58b4510f9d869275 (patch)
treeca77f3080760453ce2dbcc397df87ad531692873 /scripts
parente235947d848a92067ec86cf13f7990a4559c58d1 (diff)
downloadbuild-coordinator-25e4cfb9aaf37e520c99d60b58b4510f9d869275.tar
build-coordinator-25e4cfb9aaf37e520c99d60b58b4510f9d869275.tar.gz
Fix some stream issues
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator.in16
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)