ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-18 08:51:48 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

profiles: Add gzip to $PATH before invoking 'install-info'.

Browse source 
* guix/profiles.scm (info-dir-file)[gzip]: New variable.
  [build]: Add 'setenv' call.
This commit is contained in:
Ludovic Courtès 2014-08-27 11:00:11 +02:00
parent 384de55233
commit 2f0556ae5e
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/profiles.scm
View file

@ -376,10 +376,11 @@ (define (manifest-inputs manifest)
(define (info-dir-file manifest) (define (info-dir-file manifest)
"Return a derivation that builds the 'dir' file for all the entries of "Return a derivation that builds the 'dir' file for all the entries of
MANIFEST." MANIFEST."
(define texinfo (define texinfo ;lazy reference
;; Lazy reference. (module-ref (resolve-interface '(gnu packages texinfo)) 'texinfo))
(module-ref (resolve-interface '(gnu packages texinfo)) (define gzip ;lazy reference
'texinfo)) (module-ref (resolve-interface '(gnu packages compression)) 'gzip))
(define build (define build
#~(begin #~(begin
(use-modules (guix build utils) (use-modules (guix build utils)
@ -396,6 +397,7 @@ (define (info-files top)
(or (scandir infodir info-file?) '())))) (or (scandir infodir info-file?) '()))))
(define (install-info info) (define (install-info info)
(setenv "PATH" (string-append #+gzip "/bin")) ;for info.gz files
(zero? (zero?
(system* (string-append #+texinfo "/bin/install-info") (system* (string-append #+texinfo "/bin/install-info")
info (string-append #$output "/share/info/dir")))) info (string-append #$output "/share/info/dir"))))