profiles: Add gzip to $PATH before invoking 'install-info'.
* guix/profiles.scm (info-dir-file)[gzip]: New variable. [build]: Add 'setenv' call.
This commit is contained in:
parent
384de55233
commit
2f0556ae5e
@ -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"))))
|
||||
|
Loading…
Reference in New Issue
Block a user