summaryrefslogtreecommitdiff
path: root/gnu/services/cuirass.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-02-12 14:50:31 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-02-12 14:57:47 +0100
commit66c31d5072c846ab86026c5f696ea55a08723ac2 (patch)
treec75738d14503a5c8a24ddce3a49a7bd61f6b7687 /gnu/services/cuirass.scm
parent689b525db0a9f7dcc6e4cd5ba1ca4fbc06162ccb (diff)
services: cuirass: Add server argument for the remote-worker.
* gnu/services/cuirass.scm (<cuirass-remote-worker-configuration>)[server]: New field. (cuirass-remote-worker-shepherd-service): Honor it.
Diffstat (limited to 'gnu/services/cuirass.scm')
-rw-r--r--gnu/services/cuirass.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 1cebbfcb6e..ea656c617e 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -311,6 +311,8 @@
(default cuirass))
(workers cuirass-remote-worker-workers ;int
(default 1))
+ (server cuirass-remote-worker-server ;string
+ (default #f))
(systems cuirass-remote-worker-systems ;list
(default (list (%current-system))))
(log-file cuirass-remote-worker-log-file ;string
@@ -326,7 +328,8 @@
"Return a <shepherd-service> for the Cuirass remote worker service with
CONFIG."
(match-record config <cuirass-remote-worker-configuration>
- (cuirass workers systems log-file publish-port public-key private-key)
+ (cuirass workers server systems log-file publish-port
+ public-key private-key)
(list (shepherd-service
(documentation "Run Cuirass remote build worker.")
(provision '(cuirass-remote-worker))
@@ -335,6 +338,9 @@ CONFIG."
(list (string-append #$cuirass "/bin/remote-worker")
(string-append "--workers="
#$(number->string workers))
+ #$@(if server
+ (list (string-append "--server=" server))
+ '())
#$@(if systems
(list (string-append
"--systems="