diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2023-04-24 21:59:04 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-04-30 23:11:09 +0200 |
| commit | d9d25bf517d4703dbf48a9efe99d086007b4603d (patch) | |
| tree | c1f66d525cbda29899694abd687aa7cad89fe6a1 | |
| parent | 9f09903aff038533450a134a3c12e0e3e29c4ce6 (diff) | |
| download | guix-d9d25bf517d4703dbf48a9efe99d086007b4603d.tar.gz | |
installer: Filter out C.UTF-8 from the list of locales.
* gnu/installer/locale.scm (supported-locales->locales): Filter out C.UTF-8. It doesn't follow the other locales' format, and doesn't have a corresponding iso639 code. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/installer/locale.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gnu/installer/locale.scm b/gnu/installer/locale.scm index ccffb6d8ef..2ec0598abb 100644 --- a/gnu/installer/locale.scm +++ b/gnu/installer/locale.scm @@ -93,9 +93,10 @@ optionally, CODESET." (define (supported-locales->locales supported-locales) "Given SUPPORTED-LOCALES, a file produced by 'glibc-supported-locales', return a list of locales where each locale is an alist." - (map (match-lambda - ((locale . codeset) - (locale-string->locale locale codeset))) + (filter-map (match-lambda + (("C.UTF-8" . codeset) #f) + ((locale . codeset) + (locale-string->locale locale codeset))) (call-with-input-file supported-locales read))) |