civodul pushed a commit to branch master
in repository guix.
commit d9d25bf517d4703dbf48a9efe99d086007b4603d
Author: Josselin Poiret <[email protected]>
AuthorDate: Mon Apr 24 21:59:04 2023 +0200
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 <[email protected]>
---
gnu/installer/locale.scm | 7 ++++---
1 file 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)))
