aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorAndreas Enge <andreas@enge.fr>2024-07-02 17:06:42 +0200
committerAndreas Enge <andreas@enge.fr>2024-09-18 11:21:06 +0200
commit1c088531cf0be8fe6706c4624a920fca2ab2fee0 (patch)
tree83bae2daf7540dc7b1ddcb1111dda2826eab4b2a /gnu/services
parentfb8c4916be554ddf55e21508922d9b398a584f8a (diff)
downloadguix-1c088531cf0be8fe6706c4624a920fca2ab2fee0.tar
guix-1c088531cf0be8fe6706c4624a920fca2ab2fee0.tar.gz
services: guix-build-coordinator-agent: Add extra-options.
* 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>
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/guix.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index fdeaeeb472..6c58b3a292 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -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 '())))