Use the new fold-builds procedure from the build coordinator

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