[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: services: cuirass: Add systems argument.

From: guix-commits
Subject: branch master updated: services: cuirass: Add systems argument.
Date: Thu, 28 Jan 2021 08:04:59 -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 a19b688  services: cuirass: Add systems argument.
a19b688 is described below

commit a19b6889ad17c6a55ca8d814669c6516bff23fab
Author: Mathieu Othacehe <>
AuthorDate: Thu Jan 28 14:03:57 2021 +0100

    services: cuirass: Add systems argument.
    * gnu/services/cuirass.scm (<cuirass-remote-worker-configuration>)[systems]:
    New field.
    (cuirass-remote-worker-shepherd-service): Honor it.
    Signed-off-by: Mathieu Othacehe <>
 gnu/services/cuirass.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index f426b9a..1ea1263 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -291,6 +291,8 @@
                     (default cuirass))
   (workers          cuirass-remote-worker-workers ;int
                     (default 1))
+  (systems          cuirass-remote-worker-systems ;list
+                    (list (%current-system)))
   (log-file         cuirass-remote-worker-log-file ;string
                     (default "/var/log/cuirass-remote-worker.log"))
   (publish-port     cuirass-remote-worker-configuration-publish-port ;int
@@ -304,7 +306,7 @@
   "Return a <shepherd-service> for the Cuirass remote worker service with
   (match-record config <cuirass-remote-worker-configuration>
-    (cuirass workers publish-port public-key private-key)
+    (cuirass workers systems publish-port public-key private-key)
     (list (shepherd-service
            (documentation "Run Cuirass remote build worker.")
            (provision '(cuirass-remote-worker))
@@ -312,6 +314,11 @@ CONFIG."
            (start #~(make-forkexec-constructor
                      (list (string-append #$cuirass "/bin/remote-worker")
                            (string-append "--workers" #$workers)
+                           #$@(if systems
+                                  (list (string-append
+                                         "--systems="
+                                         (string-join systems ",")))
+                                  '())
                            #$@(if publish-port
                                   (list (string-append

reply via email to

[Prev in Thread] Current Thread [Next in Thread]