From d128c6fd33f46ec4e2d0ef352d20a858c377bf6f Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Thu, 12 Aug 2021 12:58:34 +0200 Subject: services: cuirass: Add a no-publish argument. * gnu/services/cuirass.scm (): Add a no-publish? field. (cuirass-shepherd-service): Honor it. * doc/guix.texi (Cuirass remote building): Document it. --- gnu/services/cuirass.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index 99b137e05e..f0df5a6824 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -72,6 +72,8 @@ (define-record-type* (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 @@ (define (cuirass-shepherd-service config) (stop #~(make-kill-destructor))) ,@(if remote-server (match-record remote-server - (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 @@ (define (cuirass-shepherd-service config) "--trigger-substitute-url=" trigger-url)) '()) + #$@(if no-publish? + (list "--no-publish") + '()) #$@(if public-key (list (string-append "--public-key=" -- cgit v1.2.3