branch master updated: services: guix-build-coordinator: Support extra environment vars.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new a759cbffaf services: guix-build-coordinator: Support extra environment 
vars.
a759cbffaf is described below

commit a759cbffafbf67b3a03c80b5bdbe3f3478affc50
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue May 9 16:16:54 2023 +0100

    services: guix-build-coordinator: Support extra environment vars.
    
    I'm looking at this because I need to do some debugging of Guile's GC, and
    there are some useful environment variables for that, but it should be
    generally useful.
    
    * gnu/services/guix.scm 
(guix-build-coordinator-configuration-extra-environment-variables):
    New procedure.
    (guix-build-coordinator-shepherd-services): Pass the environment variables 
to
    the shepherd.
    * doc/guix.texi (Guix Services): Document it.
---
 doc/guix.texi         |  3 +++
 gnu/services/guix.scm | 12 +++++++++---
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index ca0d09a0dc..c69fde646d 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -37222,6 +37222,9 @@ for the hook and the value is the number of threads to 
run.
 @item @code{guile} (default: @code{guile-3.0-latest})
 The Guile package with which to run the Guix Build Coordinator.
 
+@item @code{extra-environment-variables} (default: @var{'()})
+Extra environment variables to set via the shepherd service.
+
 @end table
 @end deftp
 
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index 5aa8f8f1a2..b5740892c4 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -48,6 +48,7 @@
             guix-build-coordinator-configuration-hooks
             guix-build-coordinator-configuration-parallel-hooks
             guix-build-coordinator-configuration-guile
+            guix-build-coordinator-configuration-extra-environment-variables
 
             guix-build-coordinator-service-type
 
@@ -171,7 +172,10 @@
   (parallel-hooks                  
guix-build-coordinator-configuration-parallel-hooks
                                    (default '()))
   (guile                           guix-build-coordinator-configuration-guile
-                                   (default guile-3.0-latest)))
+                                   (default guile-3.0-latest))
+  (extra-environment-variables
+   guix-build-coordinator-configuration-extra-environment-variables
+   (default '())))
 
 (define-record-type* <guix-build-coordinator-agent-configuration>
   guix-build-coordinator-agent-configuration
@@ -331,7 +335,8 @@
              allocation-strategy
              hooks
              parallel-hooks
-             guile)
+             guile
+             extra-environment-variables)
     (list
      (shepherd-service
       (documentation "Guix Build Coordinator")
@@ -362,7 +367,8 @@
                      `(,(string-append
                          "GUIX_LOCPATH=" #$glibc-utf8-locales "/lib/locale")
                        "LC_ALL=en_US.utf8"
-                       "PATH=/run/current-system/profile/bin") ; for hooks
+                       "PATH=/run/current-system/profile/bin" ; for hooks
+                       #$@extra-environment-variables)
                      #:log-file 
"/var/log/guix-build-coordinator/coordinator.log")
                     args))))
       (stop #~(make-kill-destructor))