bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: guix-build-coordinator: Allow passing extra arguments.

Browse source 
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
This commit is contained in:
Christopher Baines 2025-05-11 09:54:23 +01:00
parent cfb8a4f043
commit 5137d4a96c
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/services/guix.scm
View file

@ -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"