ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: cuirass: Add a substitute-urls argument.

Browse source 
* gnu/services/cuirass.scm (<cuirass-remote-worker-configuration>): Add a
substitute-urls field.
(cuirass-remote-worker-shepherd-service): Honor it.
* doc/guix.texi (Cuirass remote building): Document it.
This commit is contained in:
Mathieu Othacehe 2021-08-12 14:23:41 +02:00
parent 1314761bbe
commit 23b5b168ae
No known key found for this signature in database
GPG key ID: 8354763531769CA6
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
doc/guix.texi
View file

@ -27928,6 +27928,9 @@ Location of the log file.
@item @code{publish-port} (default: @code{5558})
The TCP port of the publish server. It defaults to @code{5558}.
@item @code{substitute-urls} (default: @code{%default-substitute-urls})
The list of URLs where to look for substitutes by default.
@item @code{public-key}
@item @code{private-key}
Use the specific @var{file}s as the public/private key pair used to sign

10
gnu/services/cuirass.scm
View file

@ -25,6 +25,7 @@ (define-module (gnu services cuirass)
#:use-module (guix channels)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (guix store)
#:use-module (guix utils)
#:use-module (gnu packages admin)
#:use-module (gnu packages ci)
@ -338,6 +339,8 @@ (define-record-type* <cuirass-remote-worker-configuration>
(default "/var/log/cuirass-remote-worker.log"))
(publish-port cuirass-remote-worker-configuration-publish-port ;int
(default 5558))
(substitute-urls cuirass-remote-worker-configuration-substitute-urls
(default %default-substitute-urls)) ;list of strings
(public-key cuirass-remote-worker-configuration-public-key ;string
(default #f))
(private-key cuirass-remote-worker-configuration-private-key ;string
@ -348,7 +351,7 @@ (define (cuirass-remote-worker-shepherd-service config)
CONFIG."
(match-record config <cuirass-remote-worker-configuration>
(cuirass workers server systems log-file publish-port
public-key private-key)
substitute-urls public-key private-key)
(list (shepherd-service
(documentation "Run Cuirass remote build worker.")
(provision '(cuirass-remote-worker))
@ -371,6 +374,11 @@ (define (cuirass-remote-worker-shepherd-service config)
"--publish-port="
(number->string publish-port)))
'())
#$@(if substitute-urls
(string-append
"--substitute-urls="
(string-join substitute-urls))
'())
#$@(if public-key
(list
(string-append "--public-key="