From a2830cbbf86660db64e8a409a6a9d12842ae13f9 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 15 May 2024 13:08:31 +0100
Subject: Process the issue builds in parallel

---
 guix-qa-frontpage/manage-builds.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index 18780d6..7ef461d 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -191,7 +191,7 @@
          issues-with-builds-to-cancel))
 
       (simple-format #t "submitting patch builds\n")
-      (for-each
+      (fibers-batch-for-each
        (lambda (issue-number)
          (submit-builds-for-issue
           database
@@ -200,6 +200,7 @@
           issue-number
           #:priority priority-for-change
           #:build-limit %patches-builds-limit))
+       2
        first-n-series-issue-numbers)))
 
   (spawn-fiber
-- 
cgit v1.2.3