[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: services: cuirass: Add server argument for the re
From: |
guix-commits |
Subject: |
branch master updated: services: cuirass: Add server argument for the remote-worker. |
Date: |
Fri, 12 Feb 2021 08:57:54 -0500 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new 66c31d5 services: cuirass: Add server argument for the remote-worker.
66c31d5 is described below
commit 66c31d5072c846ab86026c5f696ea55a08723ac2
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Feb 12 14:50:31 2021 +0100
services: cuirass: Add server argument for the remote-worker.
* gnu/services/cuirass.scm (<cuirass-remote-worker-configuration>)[server]:
New field.
(cuirass-remote-worker-shepherd-service): Honor it.
---
gnu/services/cuirass.scm | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 1cebbfc..ea656c6 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -311,6 +311,8 @@
(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 @@
"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 @@ 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="
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: services: cuirass: Add server argument for the remote-worker.,
guix-commits <=