mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: cuirass: Add a no-publish argument.

Browse source 
* gnu/services/cuirass.scm (<cuirass-remote-server-configuration>): Add a
no-publish? field.
(cuirass-shepherd-service): Honor it.
* doc/guix.texi (Cuirass remote building): Document it.
This commit is contained in:
Mathieu Othacehe 2021-08-12 12:58:34 +02:00
parent 8b9a5641bc
commit d128c6fd33
No known key found for this signature in database
GPG key ID: 8354763531769CA6
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/guix.texi
View file

@ -27889,6 +27889,11 @@ Use @var{cache} directory to cache build log files.
Once a substitute is successfully fetched, trigger substitute baking at Once a substitute is successfully fetched, trigger substitute baking at
@var{trigger-url}. @var{trigger-url}.
@item @code{no-publish} (default: @code{#f})
Do not start a publish server and ignore the @code{publish-port}
argument. This can be useful if there is already a standalone publish
server standing next to the remote server.
@item @code{public-key} @item @code{public-key}
@item @code{private-key} @item @code{private-key}
Use the specific @var{file}s as the public/private key pair used to sign Use the specific @var{file}s as the public/private key pair used to sign

9
gnu/services/cuirass.scm
View file

@ -72,6 +72,8 @@ (define-record-type* <cuirass-remote-server-configuration>
(default "/var/log/cuirass-remote-server.log")) (default "/var/log/cuirass-remote-server.log"))
(cache cuirass-remote-server-configuration-cache ;string (cache cuirass-remote-server-configuration-cache ;string
(default "/var/cache/cuirass/remote/")) (default "/var/cache/cuirass/remote/"))
(no-publish? cuirass-remote-server-configuration-no-publish? ;boolean
(default #f))
(trigger-url cuirass-remote-server-trigger-url ;string (trigger-url cuirass-remote-server-trigger-url ;string
(default #f)) (default #f))
(public-key cuirass-remote-server-configuration-public-key ;string (public-key cuirass-remote-server-configuration-public-key ;string
@ -191,8 +193,8 @@ (define (cuirass-shepherd-service config)
(stop #~(make-kill-destructor))) (stop #~(make-kill-destructor)))
,@(if remote-server ,@(if remote-server
(match-record remote-server <cuirass-remote-server-configuration> (match-record remote-server <cuirass-remote-server-configuration>
(backend-port publish-port log-file cache trigger-url (backend-port publish-port log-file cache no-publish?
public-key private-key) trigger-url public-key private-key)
(list (list
(shepherd-service (shepherd-service
(documentation "Run Cuirass remote build server.") (documentation "Run Cuirass remote build server.")
@ -225,6 +227,9 @@ (define (cuirass-shepherd-service config)
"--trigger-substitute-url=" "--trigger-substitute-url="
trigger-url)) trigger-url))
'()) '())
#$@(if no-publish?
(list "--no-publish")
'())
#$@(if public-key #$@(if public-key
(list (list
(string-append "--public-key=" (string-append "--public-key="