From 2f0556ae5e9a920d39647910b7350e34d300bf35 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 27 Aug 2014 11:00:11 +0200 Subject: [PATCH] profiles: Add gzip to $PATH before invoking 'install-info'. * guix/profiles.scm (info-dir-file)[gzip]: New variable. [build]: Add 'setenv' call. --- guix/profiles.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/guix/profiles.scm b/guix/profiles.scm index a2c73fd4cd..55c3b6e768 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -376,10 +376,11 @@ or (define (info-dir-file manifest) "Return a derivation that builds the 'dir' file for all the entries of MANIFEST." - (define texinfo - ;; Lazy reference. - (module-ref (resolve-interface '(gnu packages texinfo)) - 'texinfo)) + (define texinfo ;lazy reference + (module-ref (resolve-interface '(gnu packages texinfo)) 'texinfo)) + (define gzip ;lazy reference + (module-ref (resolve-interface '(gnu packages compression)) 'gzip)) + (define build #~(begin (use-modules (guix build utils) @@ -396,6 +397,7 @@ MANIFEST." (or (scandir infodir info-file?) '())))) (define (install-info info) + (setenv "PATH" (string-append #+gzip "/bin")) ;for info.gz files (zero? (system* (string-append #+texinfo "/bin/install-info") info (string-append #$output "/share/info/dir"))))