summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-05-10 11:06:20 +0100
committerChristopher Baines <mail@cbaines.net>2023-05-10 11:06:20 +0100
commit98c393164167e9a5a205f7dffa966992a71925ae (patch)
treea47843248662d62d621429a8da144b4fedc0b1b4
parent5ff8ec12ef25eb794a598185cf7ccb7f2359f105 (diff)
services: guix-build-coordinator-agent: Support max-parallel-uploads.
This should be usable with the new guile-gnutls. * gnu/services/guix.scm (guix-build-coordinator-agent-configuration-max-parallel-uploads): New procedure. * gnu/services/guix.scm (guix-build-coordinator-agent-shepherd-services): Use the new argument. * doc/guix.texi (Guix Services): Document it.
-rw-r--r--doc/guix.texi3
-rw-r--r--gnu/services/guix.scm14
2 files changed, 14 insertions, 3 deletions
diff --git a/doc/guix.texi b/doc/guix.texi
index a7be6c8712..ef2b78baeb 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -37257,6 +37257,9 @@ will use the current system it's running on as the default.
@item @code{max-parallel-builds} (default: @code{1})
The number of builds to perform in parallel.
+@item @code{max-parallel-uploads} (default: @code{1})
+The number of uploads to perform in parallel.
+
@item @code{max-allocated-builds} (default: @code{#f})
The maximum number of builds this agent can be allocated.
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index b5740892c4..90310ab9d9 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -60,6 +60,7 @@
guix-build-coordinator-agent-configuration-authentication
guix-build-coordinator-agent-configuration-systems
guix-build-coordinator-agent-configuration-max-parallel-builds
+ guix-build-coordinator-agent-configuration-max-parallel-uploads
guix-build-coordinator-agent-configuration-max-allocated-builds
guix-build-coordinator-agent-configuration-max-1min-load-average
guix-build-coordinator-agent-configuration-derivation-substitute-urls
@@ -193,6 +194,9 @@
(max-parallel-builds
guix-build-coordinator-agent-configuration-max-parallel-builds
(default 1))
+ (max-parallel-uploads
+ guix-build-coordinator-agent-configuration-max-parallel-uploads
+ (default 1))
(max-allocated-builds
guix-build-coordinator-agent-configuration-max-allocated-builds
(default #f))
@@ -426,9 +430,9 @@
(define (guix-build-coordinator-agent-shepherd-services config)
(match-record config <guix-build-coordinator-agent-configuration>
- (package user coordinator authentication max-parallel-builds
- max-allocated-builds
- max-1min-load-average
+ (package user coordinator authentication
+ max-parallel-builds max-parallel-uploads
+ max-allocated-builds max-1min-load-average
derivation-substitute-urls non-derivation-substitute-urls
systems)
(list
@@ -464,6 +468,10 @@
token-file))))
#$(simple-format #f "--max-parallel-builds=~A"
max-parallel-builds)
+ #$@(if max-parallel-uploads
+ #~(#$(simple-format #f "--max-parallel-uploads=~A"
+ max-parallel-uploads))
+ #~())
#$@(if max-allocated-builds
#~(#$(simple-format #f "--max-allocated-builds=~A"
max-allocated-builds))