me
/
guix
Archived
1
0
Fork 0
Code

services: cuirass: Add a no-publish argument. 

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