1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

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>
This commit is contained in:
Josselin Poiret
2023-04-24 21:59:04 +02:00
committed by Ludovic Courtès
parent 9f09903aff
commit d9d25bf517

View File

@@ -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)))