futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

services: guix-build-coordinator-agent: Add extra-options.

Browse Source 
* gnu/services/guix.scm (<guix-build-coordinator-agent-configuration>):
Add field extra-options.
(guix-build-coordinator-agent-shepherd-services): Add and use EXTRA-OPTIONS
argument.
* doc/guix.texi (Guix Services): Adapt the documentation.

Change-Id: I9e7e258e03e2b6553aa1570f5fcfaf3b0ada3e15
Reviewed-by: Maxim Cournoyer <maxim.cournoyer@gmail>
This commit is contained in:
Andreas Enge 2024-07-02 17:06:42 +02:00
parent fb8c4916be
commit 1c088531cf
No known key found for this signature in database
GPG Key ID: F7D5C9BF765C61E3
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/guix.texi
View File

@ -39763,6 +39763,8 @@ derivations aren't already available.
URLs from which to attempt to fetch substitutes for build inputs, if the
input store items aren't already available.
@item @code{extra-options} (default: @var{'()})
Extra command line options for @code{guix-build-coordinator-agent}.
@end table
@end deftp

8
gnu/services/guix.scm
View File

@ -66,6 +66,7 @@
guix-build-coordinator-agent-configuration-max-1min-load-average
guix-build-coordinator-agent-configuration-derivation-substitute-urls
guix-build-coordinator-agent-configuration-non-derivation-substitute-urls
guix-build-coordinator-agent-configuration-extra-options
guix-build-coordinator-agent-password-auth
guix-build-coordinator-agent-password-auth?
@ -209,7 +210,10 @@
(default #f))
(non-derivation-substitute-urls
guix-build-coordinator-agent-configuration-non-derivation-substitute-urls
(default #f)))
(default #f))
(extra-options
guix-build-coordinator-agent-configuration-extra-options
(default '())))
(define-record-type* <guix-build-coordinator-agent-password-auth>
guix-build-coordinator-agent-password-auth
@ -410,6 +414,7 @@
max-parallel-builds max-parallel-uploads
max-allocated-builds max-1min-load-average
derivation-substitute-urls non-derivation-substitute-urls
extra-options
systems)
(list
(shepherd-service
@ -469,6 +474,7 @@
"--non-derivation-substitute-urls="
(string-join non-derivation-substitute-urls " ")))
#~())
#$@extra-options
#$@(map (lambda (system)
(string-append "--system=" system))
(or systems '())))