From 2f0556ae5e9a920d39647910b7350e34d300bf35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
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 a2c73fd4cd2..55c3b6e7684 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -376,10 +376,11 @@ (define (manifest-inputs manifest)
(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 @@ (define (info-files top)
(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"))))
--
GitLab