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

@ -40612,6 +40612,10 @@ Hooks can be configured to run in parallel. This parameter is an
association list of hooks to do in parallel, where the key is the symbol
for the hook and the value is the number of threads to run.
@item @code{listen-repl} (default: @var{#f})
Port or filename to spawn a REPL listening on, pass @code{#t} to listen
on the default port or @code{#f} to disable.
@item @code{guile} (default: @code{guile-3.0-latest})
The Guile package with which to run the Guix Build Coordinator.

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