diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-12 12:23:01 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-12 12:23:01 +0000 |
| commit | 2385217d499bb45072e6f5f0230cf406cea42755 (patch) | |
| tree | 06516a6fe4069758991766da3d705da13c17dd54 | |
| parent | c4c4f5ae043562276b11c2bd1174d3e24bedcd6e (diff) | |
| download | build-coordinator-2385217d499bb45072e6f5f0230cf406cea42755.tar build-coordinator-2385217d499bb45072e6f5f0230cf406cea42755.tar.gz | |
Fix build update-priority
As the matching builds is now just a list rather than a stream.
| -rw-r--r-- | scripts/guix-build-coordinator.in | 7 |
1 files changed, 3 insertions, 4 deletions
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) |