From 5ae4169c5ffef716148e7d3c92fdd49c0b2f7ded Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 5 May 2015 18:10:30 +0200 Subject: [PATCH] packages: Use packages from '%final-inputs' as the default patch inputs. Reported by Manolis Ragkousis at . * guix/packages.scm (%standard-patch-inputs): Add 'canonical', and use it in 'ref'. --- guix/packages.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/guix/packages.scm b/guix/packages.scm index f6dda451ad..d5bf6dbf65 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