guix_mirror_bot pushed a commit to branch master
in repository guix.
commit b0ef1997d8f1f036ec188155e2391a36270479bf
Author: Christopher Baines <[email protected]>
AuthorDate: Thu Oct 23 16:35:51 2025 +0100
services: nar-herder: Add control server options.
* gnu/services/guix.scm (<nar-herder-configuration>): Add control host and
control port fields.
(nar-herder-shepherd-services): Use them.
* doc/guix.texi (Guix Services): Document them.
Change-Id: Ie738fb30302496d2ec530ca3b5c8b0628fdd4c05
---
doc/guix.texi | 6 ++++++
gnu/services/guix.scm | 6 ++++++
2 files changed, 12 insertions(+)
diff --git a/doc/guix.texi b/doc/guix.texi
index 652db050cb..5fdb009a4a 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -43491,6 +43491,12 @@ The port to bind the server to.
@item @code{host} (default: @code{"127.0.0.1"})
The host to bind the server to.
+@item @code{control-port} (default: @code{8734})
+The port to bind the control server to.
+
+@item @code{control-host} (default: @code{"127.0.0.1"})
+The host to bind the control server to.
+
@item @code{mirror} (default: @code{#f})
Optional URL of the other Nar Herder instance which should be mirrored.
This means that this Nar Herder instance will download it's database,
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index cb8f6ef4f7..ee5913a1d8 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -844,6 +844,10 @@ ca-certificates.crt file in the system profile."
(default "127.0.0.1"))
(port nar-herder-configuration-port
(default 8734))
+ (control-host nar-herder-configuration-control-host
+ (default "127.0.0.1"))
+ (control-port nar-herder-configuration-control-port
+ (default 8735))
(storage nar-herder-configuration-storage
(default #f))
(storage-limit nar-herder-configuration-storage-limit
@@ -968,6 +972,8 @@ ca-certificates.crt file in the system profile."
"--pid-file=/var/run/nar-herder/pid"
#$(string-append "--port=" (number->string port))
#$(string-append "--host=" host)
+ #$(string-append "--control-port=" (number->string port))
+ #$(string-append "--control-host=" host)
#$@(if mirror
(list (string-append "--mirror=" mirror))
'())
