diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-02-12 14:50:31 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-02-12 14:57:47 +0100 |
| commit | 66c31d5072c846ab86026c5f696ea55a08723ac2 (patch) | |
| tree | c75738d14503a5c8a24ddce3a49a7bd61f6b7687 | |
| parent | 689b525db0a9f7dcc6e4cd5ba1ca4fbc06162ccb (diff) | |
| download | guix-66c31d5072c846ab86026c5f696ea55a08723ac2.tar guix-66c31d5072c846ab86026c5f696ea55a08723ac2.tar.gz | |
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.
| -rw-r--r-- | gnu/services/cuirass.scm | 8 |
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=" |