diff options
-rw-r--r-- | guix-build-coordinator/utils.scm | 32 | ||||
-rw-r--r-- | scripts/guix-build-coordinator-agent.in | 2 | ||||
-rw-r--r-- | scripts/guix-build-coordinator.in | 2 |
3 files changed, 35 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index c619a12..5d365a6 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -65,7 +65,9 @@ running-on-the-hurd? - get-gc-metrics-updater)) + get-gc-metrics-updater + + check-locale!)) (eval-when (eval load compile) (begin @@ -931,3 +933,31 @@ again." (let ((value (assq-ref stats name))) (metric-set metric value)))) metrics)))) + +(define (check-locale!) + (with-exception-handler + (lambda (exn) + (display + (simple-format + #f + "exception when calling setlocale: ~A +falling back to en_US.utf8\n" + exn) + (current-error-port)) + + (with-exception-handler + (lambda (exn) + (display + (simple-format + #f + "exception when calling setlocale with en_US.utf8: ~A\n" + exn) + (current-error-port)) + + (exit 1)) + (lambda _ + (setlocale LC_ALL "en_US.utf8")) + #:unwind? #t)) + (lambda _ + (setlocale LC_ALL "")) + #:unwind? #t)) diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index c863e9e..0ac36f9 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -140,6 +140,8 @@ (max 256 columns) 256)))) +(simple-format (current-error-port) "locale is ~A\n" (check-locale!)) + (let ((opts (parse-options %options %option-defaults (cdr (program-arguments))))) diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 9760968..b112262 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -52,6 +52,8 @@ (guix-build-coordinator build-allocator) (guix-build-coordinator client-communication)) +(simple-format (current-error-port) "locale is ~A\n" (check-locale!)) + (define %base-options ;; Specifications of the command-line options (list (option '("secret-key-base-file") #t #f |