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.
This commit is contained in:
		
							parent
							
								
									c1ffe2f21b
								
							
						
					
					
						commit
						a759cbffaf
					
				
					 2 changed files with 12 additions and 3 deletions
				
			
		| 
						 | 
				
			
			@ -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
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -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))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue