02/17: LOCAL_ONLY: profiles: Use the canonical glibc-utf8-locales to build profiles.

[Mark H. Weaver]

mhw pushed a commit to branch reproduce-bug-29774
in repository guix.

commit ce8fb528a150903a1aae9673e30dadb119b2af1e
Author: Mark H Weaver <address@hidden>
Date:   Sun Mar 18 02:40:03 2018 -0400

    LOCAL_ONLY: profiles: Use the canonical glibc-utf8-locales to build 
profiles.
---
 guix/profiles.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/profiles.scm b/guix/profiles.scm
index 95dc974..129ff85 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -778,7 +778,8 @@ MANIFEST.  Single-file bundles are required by programs 
such as Git and Lynx."
   ;; for a discussion.
 
   (define glibc-utf8-locales                      ;lazy reference
-    (module-ref (resolve-interface '(gnu packages base)) 'glibc-utf8-locales))
+    ((module-ref (resolve-interface '(gnu packages base)) 'canonical-package)
+     (module-ref (resolve-interface '(gnu packages base)) 
'glibc-utf8-locales)))
 
   (define build
     (with-imported-modules '((guix build utils))
@@ -1236,8 +1237,8 @@ are cross-built for TARGET."
               (manifest-inputs manifest)))
 
     (define glibc-utf8-locales                    ;lazy reference
-      (module-ref (resolve-interface '(gnu packages base))
-                  'glibc-utf8-locales))
+      ((module-ref (resolve-interface '(gnu packages base)) 'canonical-package)
+       (module-ref (resolve-interface '(gnu packages base)) 
'glibc-utf8-locales)))
 
     (define set-utf8-locale
       ;; Some file names (e.g., in 'nss-certs') are UTF-8 encoded so