ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: guix-build-coordinator-agent: Remove defaults.

Browse source 
* gnu/services/guix.scm (<guix-build-coordinator-agent-configuration>)
[max-parallel-builds, max-parallel-uploads]: Set default to #f.
(guix-build-coordinator-agent-shepherd-services): Check for
max-parallel-builds.
* doc/guix.texi (Guix Services): Adapt the documentation.

If set to #f, the default values are now taken as the defaults of the
guix-build-coordinator-agent command.

Change-Id: Ide6dde0e88aa0dc851b6295095f414ca2ddc72ac
Reviewed-by: Maxim Cournoyer <maxim.cournoyer@gmail>
This commit is contained in:
Andreas Enge 2024-07-02 16:55:35 +02:00
parent 4b7bb05c29
commit fb8c4916be
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doc/guix.texi
View file

@ -23,7 +23,7 @@
@copying @copying
Copyright @copyright{} 2012-2024 Ludovic Courtès@* Copyright @copyright{} 2012-2024 Ludovic Courtès@*
Copyright @copyright{} 2013, 2014, 2016 Andreas Enge@* Copyright @copyright{} 2013, 2014, 2016, 2024 Andreas Enge@*
Copyright @copyright{} 2013 Nikita Karetnikov@* Copyright @copyright{} 2013 Nikita Karetnikov@*
Copyright @copyright{} 2014, 2015, 2016 Alex Kost@* Copyright @copyright{} 2014, 2015, 2016 Alex Kost@*
Copyright @copyright{} 2015, 2016 Mathieu Lirzin@* Copyright @copyright{} 2015, 2016 Mathieu Lirzin@*
@ -39737,10 +39737,10 @@ coordinator. Possible record types are described below.
The systems for which this agent should fetch builds. The agent process The systems for which this agent should fetch builds. The agent process
will use the current system it's running on as the default. 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{#f})
The number of builds to perform in parallel. The number of builds to perform in parallel.
@item @code{max-parallel-uploads} (default: @code{1}) @item @code{max-parallel-uploads} (default: @code{#f})
The number of uploads to perform in parallel. The number of uploads to perform in parallel.
@item @code{max-allocated-builds} (default: @code{#f}) @item @code{max-allocated-builds} (default: @code{#f})

10
gnu/services/guix.scm
View file

@ -194,10 +194,10 @@ (define-record-type* <guix-build-coordinator-agent-configuration>
(default #f)) (default #f))
(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 #f))
(max-parallel-uploads (max-parallel-uploads
guix-build-coordinator-agent-configuration-max-parallel-uploads guix-build-coordinator-agent-configuration-max-parallel-uploads
(default 1)) (default #f))
(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))
@ -443,8 +443,10 @@ (define (guix-build-coordinator-agent-shepherd-services config)
#~(#$(string-append "--name=" agent-name) #~(#$(string-append "--name=" agent-name)
#$(string-append "--dynamic-auth-token-file=" #$(string-append "--dynamic-auth-token-file="
token-file)))) token-file))))
#$(simple-format #f "--max-parallel-builds=~A" #$@(if max-parallel-builds
max-parallel-builds) #~(#$(simple-format #f "--max-parallel-builds=~A"
max-parallel-builds))
#~())
#$@(if max-parallel-uploads #$@(if max-parallel-uploads
#~(#$(simple-format #f "--max-parallel-uploads=~A" #~(#$(simple-format #f "--max-parallel-uploads=~A"
max-parallel-uploads)) max-parallel-uploads))