From cfd3f8d49aa16772b9b62cc24aff6c1e68b27f63 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 6 Jul 2022 18:11:42 +0100
Subject: Allow changing the agent parallel uploads

---
 guix-build-coordinator/agent.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'guix-build-coordinator/agent.scm')

diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index ebd90fb..762a7e7 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -64,6 +64,7 @@
                    coordinator-interface
                    systems
                    max-parallel-builds
+                   max-parallel-uploads
                    derivation-substitute-urls
                    non-derivation-substitute-urls
                    metrics-file
@@ -112,10 +113,8 @@
       (write-textfile metrics-registry
                       metrics-file)))
 
-  (define parallel-uploads
-    1)
   (define upload-slots
-    (make-vector parallel-uploads #f))
+    (make-vector max-parallel-uploads #f))
 
   (define uploads-mutex
     (make-mutex))
@@ -385,7 +384,7 @@
   (let*-values (((perform-post-build-actions count-post-build-jobs
                                              count-post-build-threads
                                              list-post-build-jobs)
-                 (create-work-queue parallel-uploads
+                 (create-work-queue max-parallel-uploads
                                     (lambda (build thunk)
                                       (thunk))
                                     #:name "upload"))
-- 
cgit v1.2.3