diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-04-20 23:16:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-04-20 23:16:47 +0200 |
| commit | 38f50f49f395fcda6ab3395ebaa312f8ee24d80d (patch) | |
| tree | febc6db507116f0be5a1712750eb0e6b8deb2c7e /guix/store.scm | |
| parent | f954c9b5da256009fc41483e8fccd9bee1504870 (diff) | |
| download | gnu-guix-38f50f49f395fcda6ab3395ebaa312f8ee24d80d.tar gnu-guix-38f50f49f395fcda6ab3395ebaa312f8ee24d80d.tar.gz | |
substitute: Install the client's locale.
* guix/store.scm (set-build-options): Add #:locale parameter and honor
it.
* guix/scripts/substitute.scm (guix-substitute): Install the client's
locale.
Diffstat (limited to 'guix/store.scm')
| -rw-r--r-- | guix/store.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix/store.scm b/guix/store.scm index af311a0ebd..8d1099dab2 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -534,7 +534,10 @@ encoding conversion errors." (substitute-urls #f) ;; Number of columns in the client's terminal. - (terminal-columns (terminal-columns))) + (terminal-columns (terminal-columns)) + + ;; Locale of the client. + (locale (false-if-exception (setlocale LC_ALL)))) ;; Must be called after `open-connection'. (define socket @@ -573,6 +576,9 @@ encoding conversion errors." ,@(if terminal-columns `(("terminal-columns" . ,(number->string terminal-columns))) + '()) + ,@(if locale + `(("locale" . ,locale)) '())))) (send (string-pairs pairs)))) (let loop ((done? (process-stderr server))) |