From 2385217d499bb45072e6f5f0230cf406cea42755 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 12 Jan 2024 12:23:01 +0000 Subject: Fix build update-priority As the matching builds is now just a list rather than a stream. --- scripts/guix-build-coordinator.in | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 655e3ce..4ceace0 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -705,10 +705,9 @@ tags: (simple-format (current-error-port) "requesting matching builds") (force-output (current-error-port)) - (let ((matching-builds - count - (stream->list&length - (find-matching-builds)))) + (let* ((matching-builds + (find-matching-builds)) + (count (length matching-builds))) (simple-format (current-error-port) "\nfound ~A builds matching criteria\n" count) -- cgit v1.2.3