From 93882f0edaf69d3ae04cdc9f0100e97248f99b91 Mon Sep 17 00:00:00 2001 From: Eric Bavier Date: Thu, 13 Nov 2014 12:46:04 -0600 Subject: [PATCH] gnu: intltool: Make file a regular input. * gnu/packages/glib.scm (intltool)[propagated-inputs]: Move file from here... [inputs]: to here. [arguments]: New 'patch-file-references phase. --- gnu/packages/glib.scm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm index ac1b095836..e79be41d1a 100644 --- a/gnu/packages/glib.scm +++ b/gnu/packages/glib.scm @@ -250,16 +250,23 @@ bindings to call into the C library.") (base32 "01j4yd7i84n9nk4ccs6yifg84pp68nr9by57jdbhj7dpdxf5rwk7")))) (build-system gnu-build-system) + (inputs + `(("file" ,file))) (propagated-inputs `(;; Propagate gettext because users expect it to be there, and so does ;; the `intltool-update' script. ("gettext" ,gnu-gettext) - ;; `file' is used by `intltool-update' too. - ("file" ,file) - ("perl-xml-parser" ,perl-xml-parser) ("perl" ,perl))) + (arguments + `(#:phases (alist-cons-after + 'unpack 'patch-file-references + (lambda* (#:key inputs #:allow-other-keys) + (let ((file (assoc-ref inputs "file"))) + (substitute* "intltool-update.in" + (("`file") (string-append "`" file "/bin/file"))))) + %standard-phases))) (home-page "https://launchpad.net/intltool/+download") (synopsis "Tools to centralise translations of different file formats") (description