From d76b2f82af738ef4c006fba9efd30c28e3d76736 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 16 Jul 2021 15:53:12 +0200 Subject: gnu: Use 'search-input-directory' for glibc locale data. * gnu/packages/gnome.scm (gnome-desktop)[arguments]: Use 'search-input-directory' when searching for glibc's "lib/locale". * gnu/packages/gnome.scm (geocode-glib): Likewise. * gnu/packages/package-management.scm (flatpak): Likewise. --- gnu/packages/gnome.scm | 9 +++------ gnu/packages/package-management.scm | 4 ++-- 2 files changed, 5 insertions(+), 8 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index a7db30e678..1b35645694 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -2187,9 +2187,8 @@ offline sources, providing a centralized place for managing your contacts.") (system "Xvfb :1 &") (setenv "DISPLAY" ":1") (setenv "GUIX_LOCPATH" - (string-append (assoc-ref inputs "glibc-locales") - "/lib/locale")) - #t))))) + (search-input-directory inputs + "lib/locale"))))))) (native-inputs `(("glib:bin" ,glib "bin") ; for gdbus-codegen ("glibc-locales" ,glibc-locales) ; for tests @@ -5321,9 +5320,7 @@ permission from user.") (add-before 'check 'set-locales (lambda* (#:key inputs #:allow-other-keys) (setenv "GUIX_LOCPATH" - (string-append (assoc-ref inputs "glibc-locales") - "/lib/locale")) - #t))))) + (search-input-directory inputs "lib/locale"))))))) (native-inputs `(("glib:bin" ,glib "bin") ; for glib-mkenums ("glibc-locales" ,glibc-locales) ; for tests diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index c2c7846630..4ed0dabee3 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -1386,8 +1386,8 @@ the boot loader configuration.") (add-after 'unpack 'fix-tests (lambda* (#:key inputs #:allow-other-keys) (copy-recursively - (string-append (assoc-ref inputs "glibc-utf8-locales") - "/lib/locale/") "/tmp/locale") + (search-input-directory inputs "lib/locale") + "/tmp/locale") (for-each make-file-writable (find-files "/tmp")) (substitute* "tests/make-test-runtime.sh" (("cp `which.*") "echo guix\n") -- cgit 1.4.1