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

services: cuirass: Add server argument for the remote-worker.

Browse source 
* gnu/services/cuirass.scm (<cuirass-remote-worker-configuration>)[server]:
New field.
(cuirass-remote-worker-shepherd-service): Honor it.
This commit is contained in:
Mathieu Othacehe 2021-02-12 14:50:31 +01:00
parent 689b525db0
commit 66c31d5072
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/services/cuirass.scm
View file

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