summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2025-05-11 09:54:23 +0100
committerChristopher Baines <mail@cbaines.net>2025-05-11 10:19:11 +0100
commit5137d4a96ce2d93e2db8bd6ec43df72793620b45 (patch)
treeaabd68f922bec733ff7fc3d3dd43b49889628745
parentcfb8a4f0431235d1f00ab9a6b8be5b78e0013d60 (diff)
services: guix-build-coordinator: Allow passing extra arguments.
To avoid needing to support all possible configuration options in the Guix service. * gnu/services/guix.scm (guix-build-coordinator-configuration-extra-build-coordinator-arguments): New procedure. * gnu/services/guix.scm (make-guix-build-coordinator-start-script): Support extra-build-coordinator-arguments and include them when calling make-build-coordinator. (guix-build-coordinator-shepherd-services): Pass extra-build-coordinator-arguments through when calling make-guix-build-coordinator-start-script. Change-Id: I6531275bf2922f762b3422746c6207b834656b5c
-rw-r--r--gnu/services/guix.scm18
1 files changed, 14 insertions, 4 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index f7da528e66..854e6443a5 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -51,6 +51,7 @@
guix-build-coordinator-configuration-listen-repl
guix-build-coordinator-configuration-guile
guix-build-coordinator-configuration-extra-environment-variables
+ guix-build-coordinator-configuration-extra-build-coordinator-arguments
guix-build-coordinator-service-type
@@ -183,6 +184,9 @@
(default guile-next))
(extra-environment-variables
guix-build-coordinator-configuration-extra-environment-variables
+ (default '()))
+ (extra-build-coordinator-arguments
+ guix-build-coordinator-configuration-extra-build-coordinator-arguments
(default '())))
(define-record-type* <guix-build-coordinator-agent-configuration>
@@ -259,7 +263,9 @@
(hooks '())
(parallel-hooks '())
(guile guile-next)
- listen-repl)
+ listen-repl
+ (extra-build-coordinator-arguments
+ '()))
(program-file
"start-guix-build-coordinator"
(with-extensions (cons guix-build-coordinator-package
@@ -302,7 +308,8 @@
#:database-uri-string #$database-uri-string
#:hooks hooks-with-defaults
#:allocation-strategy #$allocation-strategy
- #:timestamp-log-output? #f)))
+ #:timestamp-log-output? #f
+ #$@extra-build-coordinator-arguments)))
(run-coordinator-service
build-coordinator
@@ -329,7 +336,8 @@
parallel-hooks
listen-repl
guile
- extra-environment-variables)
+ extra-environment-variables
+ extra-build-coordinator-arguments)
(list
(shepherd-service
(documentation "Guix Build Coordinator")
@@ -351,7 +359,9 @@
#:hooks hooks
#:parallel-hooks parallel-hooks
#:listen-repl listen-repl
- #:guile guile))
+ #:guile guile
+ #:extra-build-coordinator-arguments
+ extra-build-coordinator-arguments))
#:user #$user
#:group #$group
#:directory "/var/lib/guix-build-coordinator"