From a19b6889ad17c6a55ca8d814669c6516bff23fab Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Thu, 28 Jan 2021 14:03:57 +0100 Subject: services: cuirass: Add systems argument. * gnu/services/cuirass.scm ()[systems]: New field. (cuirass-remote-worker-shepherd-service): Honor it. Signed-off-by: Mathieu Othacehe --- gnu/services/cuirass.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'gnu/services') 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 @@ (define-record-type* (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 @@ (define (cuirass-remote-worker-shepherd-service config) "Return a for the Cuirass remote worker service with CONFIG." (match-record config - (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 @@ (define (cuirass-remote-worker-shepherd-service 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=" -- cgit v1.2.3