TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

services: cuirass: Add systems argument.

Browse source 
* 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>
This commit is contained in:
Mathieu Othacehe 2021-01-28 14:03:57 +01:00
parent 33648567dd
commit a19b6889ad
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/services/cuirass.scm
View file

@ -291,6 +291,8 @@ (define-record-type* <cuirass-remote-worker-configuration>
(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 <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 @@ (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="