branch master updated: remote: Set the locale only in the publish thread.

[Mathieu Othacehe]

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

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 860fffa  remote: Set the locale only in the publish thread.
860fffa is described below

commit 860fffa2608dcdfd7fae474115bafa1b20f69b72
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Feb 17 17:19:27 2021 +0100

    remote: Set the locale only in the publish thread.
    
    * src/cuirass/remote-server.scm (remote-server): Move the locale setup to 
the
    publish thread.
    * src/cuirass/remote-worker.scm (remote-worker): Ditto.
    * src/cuirass/remote.scm (publish-server): Set the locale.
---
 src/cuirass/remote-server.scm | 3 ---
 src/cuirass/remote-worker.scm | 3 ---
 src/cuirass/remote.scm        | 4 ++++
 3 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index a5b56e4..6c94673 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -426,9 +426,6 @@ exiting."
   (setvbuf (current-output-port) 'line)
   (setvbuf (current-error-port) 'line)
 
-  ;; Use a default locale.
-  (setlocale LC_ALL "en_US.utf8")
-
   (with-error-handling
     (let* ((opts (args-fold* args %options
                              (lambda (opt name arg result)
diff --git a/src/cuirass/remote-worker.scm b/src/cuirass/remote-worker.scm
index efbb9c7..69ccf02 100644
--- a/src/cuirass/remote-worker.scm
+++ b/src/cuirass/remote-worker.scm
@@ -350,9 +350,6 @@ exiting."
   (setvbuf (current-output-port) 'line)
   (setvbuf (current-error-port) 'line)
 
-  ;; Use a default locale.
-  (setlocale LC_ALL "en_US.utf8")
-
   (with-error-handling
     (let* ((opts (args-fold* args %options
                              (lambda (opt name arg result)
diff --git a/src/cuirass/remote.scm b/src/cuirass/remote.scm
index 268a643..62f16ca 100644
--- a/src/cuirass/remote.scm
+++ b/src/cuirass/remote.scm
@@ -261,6 +261,10 @@ PRIVATE-KEY to sign narinfos."
            (dup2 (fileno log-file) 1)
            (dup2 (fileno log-file) 2)
            (close-port log-file)
+
+           ;; Use a default locale.
+           (setlocale LC_ALL "en_US.utf8")
+
            (let* ((address (make-socket-address AF_INET INADDR_ANY 0))
                   (socket-address
                    (make-socket-address (sockaddr:fam address)