diff options
author | Christopher Baines <mail@cbaines.net> | 2023-09-16 09:46:34 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-09-16 09:46:34 +0100 |
commit | cd1b536621ea5022d822e39a3251fdc547f3168e (patch) | |
tree | 099d2f2772900ce647153c3d11f26a6119ec2966 /guix-qa-frontpage | |
parent | 90685a036da2b66f7b28baccfa6752b22746a0c0 (diff) | |
download | qa-frontpage-cd1b536621ea5022d822e39a3251fdc547f3168e.tar qa-frontpage-cd1b536621ea5022d822e39a3251fdc547f3168e.tar.gz |
Use the new fold-builds procedure from the build coordinator
Diffstat (limited to 'guix-qa-frontpage')
-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 |