amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
Download patch file Download diff file Expand all files Collapse all files

4
doc/guix.texi
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 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. 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}) @item @code{guile} (default: @code{guile-3.0-latest})
The Guile package with which to run the Guix Build Coordinator. The Guile package with which to run the Guix Build Coordinator.

11
gnu/services/guix.scm
View file

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