diff options
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 21 |
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 |