branch master updated: hydra: services: Run Goggles in a UTF-8 locale.

[Ludovic Courtès]

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

civodul pushed a commit to branch master
in repository maintenance.

The following commit(s) were added to refs/heads/master by this push:
     new fc97252  hydra: services: Run Goggles in a UTF-8 locale.
fc97252 is described below

commit fc972528d9de71f2568ed12567ba20642ae93c82
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Jun 27 14:42:48 2020 +0200

    hydra: services: Run Goggles in a UTF-8 locale.
    
    * hydra/modules/sysadmin/services.scm (goggles-shepherd-services): Pass
     #:environment-variables to 'make-forkexec-constructor/container'.
---
 hydra/modules/sysadmin/services.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 80f47db..a7dad4c 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -32,6 +32,7 @@
   #:use-module (guix packages)
   #:use-module (gnu packages)
   #:use-module (gnu packages admin)
+  #:use-module (gnu packages base)
   #:use-module (gnu packages ci)
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages guile-xyz)
@@ -498,7 +499,14 @@
                                       (file-system-mapping
                                        (source #$%goggles-irc-log-directory)
                                        (target source)
-                                       (writable? #f)))))
+                                       (writable? #f)))
+
+                     ;; Run in a UTF-8 locale for proper rendering of the
+                     ;; logs.
+                     #:environment-variables
+                     (list (string-append "GUIX_LOCPATH=" #$glibc-utf8-locales
+                                          "/lib/locale")
+                           "LC_ALL=en_US.utf8")))
            (stop #~(make-kill-destructor))))))
 
 (define (goggles-mcron-jobs goggles)