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
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -93,9 +93,10 @@ (define (locale->locale-string locale)
(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)))