diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-08-27 11:00:11 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-08-28 09:21:06 +0200 |
| commit | 2f0556ae5e9a920d39647910b7350e34d300bf35 (patch) | |
| tree | 3bb1e73fc8d4053bdac8028299382ccfbc41e0ad | |
| parent | 384de55233d6c37a3dfc3dda586594f1b1a5f451 (diff) | |
| download | guix-2f0556ae5e9a920d39647910b7350e34d300bf35.tar.gz | |
profiles: Add gzip to $PATH before invoking 'install-info'.
* guix/profiles.scm (info-dir-file)[gzip]: New variable. [build]: Add 'setenv' call.
| -rw-r--r-- | guix/profiles.scm | 10 |
1 files 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")))) |