futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 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 @@
(default cuirass)) (default cuirass))
(workers cuirass-remote-worker-workers ;int (workers cuirass-remote-worker-workers ;int
(default 1)) (default 1))
(systems cuirass-remote-worker-systems ;list
(list (%current-system)))
(log-file cuirass-remote-worker-log-file ;string (log-file cuirass-remote-worker-log-file ;string
(default "/var/log/cuirass-remote-worker.log")) (default "/var/log/cuirass-remote-worker.log"))
(publish-port cuirass-remote-worker-configuration-publish-port ;int (publish-port cuirass-remote-worker-configuration-publish-port ;int
@ -304,7 +306,7 @@
"Return a <shepherd-service> for the Cuirass remote worker service with "Return a <shepherd-service> for the Cuirass remote worker service with
CONFIG." CONFIG."
(match-record config <cuirass-remote-worker-configuration> (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 (list (shepherd-service
(documentation "Run Cuirass remote build worker.") (documentation "Run Cuirass remote build worker.")
(provision '(cuirass-remote-worker)) (provision '(cuirass-remote-worker))
@ -312,6 +314,11 @@ CONFIG."
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$cuirass "/bin/remote-worker") (list (string-append #$cuirass "/bin/remote-worker")
(string-append "--workers" #$workers) (string-append "--workers" #$workers)
#$@(if systems
(list (string-append
"--systems="
(string-join systems ",")))
'())
#$@(if publish-port #$@(if publish-port
(list (string-append (list (string-append
"--publish-port=" "--publish-port="