aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-qa-frontpage/manage-builds.scm21
1 files changed, 8 insertions, 13 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index 4f6caed..f8bb5fe 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -443,19 +443,14 @@
#:delay 30))
(define (for-each-build build-coordinator proc . criteria)
- (define (process-batch)
- (stream-fold
- (lambda (build result)
- (proc build)
- (1+ result))
- 0
- (apply request-builds-list
- build-coordinator
- criteria)))
-
- (let loop ((batch-size (process-batch)))
- (unless (= 0 batch-size)
- (loop (process-batch)))))
+ (apply
+ fold-builds
+ build-coordinator
+ (lambda (build-details _)
+ (proc build-details)
+ #f)
+ #f
+ criteria))
(define (cancel-builds build-coordinator
category-name