From 66c31d5072c846ab86026c5f696ea55a08723ac2 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Fri, 12 Feb 2021 14:50:31 +0100 Subject: services: cuirass: Add server argument for the remote-worker. * gnu/services/cuirass.scm ()[server]: New field. (cuirass-remote-worker-shepherd-service): Honor it. --- gnu/services/cuirass.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'gnu/services') 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 @@ (define-record-type* (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 @@ (define (cuirass-remote-worker-shepherd-service config) "Return a for the Cuirass remote worker service with CONFIG." (match-record config - (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 @@ (define (cuirass-remote-worker-shepherd-service 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=" -- cgit v1.2.3