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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d9d25bf517d4703dbf48a9efe99d086007b4603d
Author: Josselin Poiret <dev@jpoiret.xyz>
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 <ludo@gnu.org>
---
 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)))