tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-27 19:41:50 +02:00
Code Activity

installer: Filter out C.UTF-8 from the list of locales.

Browse Source 
* 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
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/installer/locale.scm
+4 -3
View File
@@ -93,9 +93,10 @@ optionally, CODESET."
(define (supported-locales->locales supported-locales) (define (supported-locales->locales supported-locales)
"Given SUPPORTED-LOCALES, a file produced by 'glibc-supported-locales', "Given SUPPORTED-LOCALES, a file produced by 'glibc-supported-locales',
return a list of locales where each locale is an alist." return a list of locales where each locale is an alist."
(map (match-lambda (filter-map (match-lambda
((locale . codeset) (("C.UTF-8" . codeset) #f)
(locale-string->locale locale codeset))) ((locale . codeset)
(locale-string->locale locale codeset)))
(call-with-input-file supported-locales read))) (call-with-input-file supported-locales read)))