mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: guix-build-coordinator-agent: Support max-parallel-uploads.

Browse source 
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.
This commit is contained in:
Christopher Baines 2023-05-10 11:06:20 +01:00
parent 5ff8ec12ef
commit 98c3931641
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
2 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
doc/guix.texi
View file

@ -37257,6 +37257,9 @@ will use the current system it's running on as the default.
@item @code{max-parallel-builds} (default: @code{1}) @item @code{max-parallel-builds} (default: @code{1})
The number of builds to perform in parallel. 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}) @item @code{max-allocated-builds} (default: @code{#f})
The maximum number of builds this agent can be allocated. The maximum number of builds this agent can be allocated.

14
gnu/services/guix.scm
View file

@ -60,6 +60,7 @@ (define-module (gnu services guix)
guix-build-coordinator-agent-configuration-authentication guix-build-coordinator-agent-configuration-authentication
guix-build-coordinator-agent-configuration-systems guix-build-coordinator-agent-configuration-systems
guix-build-coordinator-agent-configuration-max-parallel-builds 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-allocated-builds
guix-build-coordinator-agent-configuration-max-1min-load-average guix-build-coordinator-agent-configuration-max-1min-load-average
guix-build-coordinator-agent-configuration-derivation-substitute-urls guix-build-coordinator-agent-configuration-derivation-substitute-urls
@ -193,6 +194,9 @@ (define-record-type* <guix-build-coordinator-agent-configuration>
(max-parallel-builds (max-parallel-builds
guix-build-coordinator-agent-configuration-max-parallel-builds guix-build-coordinator-agent-configuration-max-parallel-builds
(default 1)) (default 1))
(max-parallel-uploads
guix-build-coordinator-agent-configuration-max-parallel-uploads
(default 1))
(max-allocated-builds (max-allocated-builds
guix-build-coordinator-agent-configuration-max-allocated-builds guix-build-coordinator-agent-configuration-max-allocated-builds
(default #f)) (default #f))
@ -426,9 +430,9 @@ (define guix-build-coordinator-service-type
(define (guix-build-coordinator-agent-shepherd-services config) (define (guix-build-coordinator-agent-shepherd-services config)
(match-record config <guix-build-coordinator-agent-configuration> (match-record config <guix-build-coordinator-agent-configuration>
(package user coordinator authentication max-parallel-builds (package user coordinator authentication
max-allocated-builds max-parallel-builds max-parallel-uploads
max-1min-load-average max-allocated-builds max-1min-load-average
derivation-substitute-urls non-derivation-substitute-urls derivation-substitute-urls non-derivation-substitute-urls
systems) systems)
(list (list
@ -464,6 +468,10 @@ (define (guix-build-coordinator-agent-shepherd-services config)
token-file)))) token-file))))
#$(simple-format #f "--max-parallel-builds=~A" #$(simple-format #f "--max-parallel-builds=~A"
max-parallel-builds) max-parallel-builds)
#$@(if max-parallel-uploads
#~(#$(simple-format #f "--max-parallel-uploads=~A"
max-parallel-uploads))
#~())
#$@(if max-allocated-builds #$@(if max-allocated-builds
#~(#$(simple-format #f "--max-allocated-builds=~A" #~(#$(simple-format #f "--max-allocated-builds=~A"
max-allocated-builds)) max-allocated-builds))