From a8e97cb90db92230dbc10677cceac91709031766 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 11 May 2024 07:06:46 +0100
Subject: Allow customising the parallelism when submitting builds

---
 bffe/manage-builds.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm
index 8e6dfc8..0fbfc7d 100644
--- a/bffe/manage-builds.scm
+++ b/bffe/manage-builds.scm
@@ -63,7 +63,9 @@
    (default #f))
   (revision-parameters
    build-from-guix-data-service-revision-parameters
-   (default '())))
+   (default '()))
+  (parallelism build-from-guix-data-service-parallelism
+               (default 2)))
 
 (define-exception-type &guix-data-service-error &error
   make-guix-data-service-error
@@ -515,7 +517,7 @@
         (simple-format port "~A\n" commit)
         (close-port port))))
 
-(define* (submit-build coordinator guix-data-service derivation
+  (define* (submit-build coordinator guix-data-service derivation
                          #:key (priority 0) (log-prefix "")
                          (tags '()))
     (retry-on-error
@@ -568,8 +570,8 @@
 
     (let ((submit-build/fiberized
            (fiberize submit-build
-                     #:parallelism 8)))
-
+                     #:parallelism (build-from-guix-data-service-parallelism
+                                    specification))))
       (spawn-fiber
        (lambda ()
          (while #t
-- 
cgit v1.2.3