gnu: glibc-utf8-locales: Use invoke instead of system*.

* gnu/packages/base.scm (glibc-utf8-locales)[arguments]: Use invoke and
remove the vestigial result code plumbing.
This commit is contained in:
Mark H Weaver 2018-03-16 01:26:17 -04:00
parent 5dc9ded15d
commit 44161fe16c
No known key found for this signature in database
GPG key ID: 7CEF29847562C516

View file

@ -985,8 +985,7 @@ (define-public glibc-utf8-locales
(arguments (arguments
`(#:modules ((guix build utils)) `(#:modules ((guix build utils))
#:builder (begin #:builder (begin
(use-modules (srfi srfi-1) (use-modules (guix build utils))
(guix build utils))
(let* ((libc (assoc-ref %build-inputs "glibc")) (let* ((libc (assoc-ref %build-inputs "glibc"))
(gzip (assoc-ref %build-inputs "gzip")) (gzip (assoc-ref %build-inputs "gzip"))
@ -997,27 +996,27 @@ (define-public glibc-utf8-locales
(setenv "PATH" (string-append libc "/bin:" gzip "/bin")) (setenv "PATH" (string-append libc "/bin:" gzip "/bin"))
(mkdir-p localedir) (mkdir-p localedir)
(every (lambda (locale) (for-each (lambda (locale)
(define file (define file
;; Use the "normalized codeset" by ;; Use the "normalized codeset" by
;; default--e.g., "en_US.utf8". ;; default--e.g., "en_US.utf8".
(string-append localedir "/" locale ".utf8")) (string-append localedir "/" locale ".utf8"))
(and (zero? (system* "localedef" "--no-archive" (invoke "localedef" "--no-archive"
"--prefix" localedir "--prefix" localedir
"-i" locale "-i" locale
"-f" "UTF-8" file)) "-f" "UTF-8" file)
(begin
;; For backward compatibility with Guix
;; <= 0.8.3, add "xx_YY.UTF-8".
(symlink (string-append locale ".utf8")
(string-append localedir "/"
locale ".UTF-8"))
#t)))
;; These are the locales commonly used for ;; For backward compatibility with Guix
;; tests---e.g., in Guile's i18n tests. ;; <= 0.8.3, add "xx_YY.UTF-8".
'("de_DE" "el_GR" "en_US" "fr_FR" "tr_TR")))))) (symlink (string-append locale ".utf8")
(string-append localedir "/"
locale ".UTF-8")))
;; These are the locales commonly used for
;; tests---e.g., in Guile's i18n tests.
'("de_DE" "el_GR" "en_US" "fr_FR" "tr_TR"))
#t))))
(inputs `(("glibc" ,glibc) (inputs `(("glibc" ,glibc)
("gzip" ,gzip))) ("gzip" ,gzip)))
(synopsis "Small sample of UTF-8 locales") (synopsis "Small sample of UTF-8 locales")