diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-01-28 14:03:57 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-01-28 14:04:52 +0100 |
| commit | a19b6889ad17c6a55ca8d814669c6516bff23fab (patch) | |
| tree | baf49730ecd343c07afbac8dd0cb289941910b3a | |
| parent | 33648567dd229b1302d2258e76d8b30593fedce6 (diff) | |
| download | guix-a19b6889ad17c6a55ca8d814669c6516bff23fab.tar.gz | |
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>
| -rw-r--r-- | gnu/services/cuirass.scm | 9 |
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=" |