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

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 URLs from which to attempt to fetch substitutes for build inputs, if the
input store items aren't already available. 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 table
@end deftp @end deftp

8
gnu/services/guix.scm
View file

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