diff options
author | Christopher Baines <mail@cbaines.net> | 2025-05-11 09:54:23 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2025-05-11 10:19:11 +0100 |
commit | 5137d4a96ce2d93e2db8bd6ec43df72793620b45 (patch) | |
tree | aabd68f922bec733ff7fc3d3dd43b49889628745 | |
parent | cfb8a4f0431235d1f00ab9a6b8be5b78e0013d60 (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.scm | 18 |
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" |