guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/03: packages: Use packages from '%final-inputs' as the default patch


From: Manolis Fragkiskos Ragkousis
Subject: 01/03: packages: Use packages from '%final-inputs' as the default patch inputs.
Date: Thu, 21 May 2015 12:32:12 +0000

phant0mas pushed a commit to branch core-updates
in repository guix.

commit 5ae4169c5ffef716148e7d3c92fdd49c0b2f7ded
Author: Ludovic Court├Ęs <address@hidden>
Date:   Tue May 5 18:10:30 2015 +0200

    packages: Use packages from '%final-inputs' as the default patch inputs.
    
    Reported by Manolis Ragkousis <address@hidden>
    at <http://lists.gnu.org/archive/html/guix-devel/2015-05/msg00059.html>.
    
    * guix/packages.scm (%standard-patch-inputs): Add 'canonical', and use
      it in 'ref'.
---
 guix/packages.scm |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/guix/packages.scm b/guix/packages.scm
index f6dda45..d5bf6db 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -336,8 +336,11 @@ corresponds to the arguments expected by 
`set-path-environment-variable'."
   (string-append (package-name package) "-" (package-version package)))
 
 (define (%standard-patch-inputs)
-  (let ((ref (lambda (module var)
-               (module-ref (resolve-interface module) var))))
+  (let* ((canonical (module-ref (resolve-interface '(gnu packages base))
+                                'canonical-package))
+         (ref       (lambda (module var)
+                      (canonical
+                       (module-ref (resolve-interface module) var)))))
     `(("tar"   ,(ref '(gnu packages base) 'tar))
       ("xz"    ,(ref '(gnu packages compression) 'xz))
       ("bzip2" ,(ref '(gnu packages compression) 'bzip2))
@@ -345,8 +348,7 @@ corresponds to the arguments expected by 
`set-path-environment-variable'."
       ("lzip"  ,(ref '(gnu packages compression) 'lzip))
       ("unzip" ,(ref '(gnu packages zip) 'unzip))
       ("patch" ,(ref '(gnu packages base) 'patch))
-      ("locales" ,(ref '(gnu packages commencement)
-                       'glibc-utf8-locales-final)))))
+      ("locales" ,(ref '(gnu packages base) 'glibc-utf8-locales)))))
 
 (define (default-guile)
   "Return the default Guile package used to run the build code of



reply via email to

[Prev in Thread] Current Thread [Next in Thread]