summaryrefslogtreecommitdiff
path: root/gnu/services/cuirass.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-01-28 14:03:57 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-01-28 14:04:52 +0100
commita19b6889ad17c6a55ca8d814669c6516bff23fab (patch)
treebaf49730ecd343c07afbac8dd0cb289941910b3a /gnu/services/cuirass.scm
parent33648567dd229b1302d2258e76d8b30593fedce6 (diff)
services: cuirass: Add systems argument.
* gnu/services/cuirass.scm (<cuirass-remote-worker-configuration>)[systems]: New field. (cuirass-remote-worker-shepherd-service): Honor it. Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
Diffstat (limited to 'gnu/services/cuirass.scm')
-rw-r--r--gnu/services/cuirass.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index f426b9a1a7..1ea1263d37 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -291,6 +291,8 @@
(default cuirass))
(workers cuirass-remote-worker-workers ;int
(default 1))
+ (systems cuirass-remote-worker-systems ;list
+ (list (%current-system)))
(log-file cuirass-remote-worker-log-file ;string
(default "/var/log/cuirass-remote-worker.log"))
(publish-port cuirass-remote-worker-configuration-publish-port ;int
@@ -304,7 +306,7 @@
"Return a <shepherd-service> for the Cuirass remote worker service with
CONFIG."
(match-record config <cuirass-remote-worker-configuration>
- (cuirass workers publish-port public-key private-key)
+ (cuirass workers systems publish-port public-key private-key)
(list (shepherd-service
(documentation "Run Cuirass remote build worker.")
(provision '(cuirass-remote-worker))
@@ -312,6 +314,11 @@ CONFIG."
(start #~(make-forkexec-constructor
(list (string-append #$cuirass "/bin/remote-worker")
(string-append "--workers" #$workers)
+ #$@(if systems
+ (list (string-append
+ "--systems="
+ (string-join systems ",")))
+ '())
#$@(if publish-port
(list (string-append
"--publish-port="