gnu: guix-build-coordinator: Add the listen-repl configuration.

* gnu/services/guix.scm (<guix-build-coordinator-configuration>): Add
listen-repl.
(guix-build-coordinator-configuration-listen-repl): New procedure.
(make-guix-build-coordinator-start-script,
guix-build-coordinator-shepherd-services): Use listen-repl.
* doc/guix.texi (Guix Services): Document listen-repl.

Change-Id: I49cac7cd3c4675f6ffed71320bb61dc7b008179a
This commit is contained in:
Christopher Baines 2025-02-16 16:00:29 +00:00
parent 796bc02b47
commit 8416738409
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
2 changed files with 13 additions and 2 deletions

View file

@ -48,6 +48,7 @@
guix-build-coordinator-configuration-allocation-strategy
guix-build-coordinator-configuration-hooks
guix-build-coordinator-configuration-parallel-hooks
guix-build-coordinator-configuration-listen-repl
guix-build-coordinator-configuration-guile
guix-build-coordinator-configuration-extra-environment-variables
@ -176,6 +177,8 @@
(default '()))
(parallel-hooks guix-build-coordinator-configuration-parallel-hooks
(default '()))
(listen-repl guix-build-coordinator-configuration-listen-repl
(default #f))
(guile guix-build-coordinator-configuration-guile
(default guile-next))
(extra-environment-variables
@ -255,7 +258,8 @@
client-communication-uri-string
(hooks '())
(parallel-hooks '())
(guile guile-next))
(guile guile-next)
listen-repl)
(program-file
"start-guix-build-coordinator"
(with-extensions (cons guix-build-coordinator-package
@ -311,7 +315,8 @@
#:parallel-hooks (list #$@(map (match-lambda
((name . val)
#~(cons '#$name #$val)))
parallel-hooks))))))
parallel-hooks))
#:listen-repl #$listen-repl))))
#:guile guile))
(define (guix-build-coordinator-shepherd-services config)
@ -322,6 +327,7 @@
allocation-strategy
hooks
parallel-hooks
listen-repl
guile
extra-environment-variables)
(list
@ -344,6 +350,7 @@
client-communication-uri-string
#:hooks hooks
#:parallel-hooks parallel-hooks
#:listen-repl listen-repl
#:guile guile))
#:user #$user
#:group #$group