mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
install: Make sure 'info' can decompress the Info files.
* gnu/system/install.scm (log-to-info): Add GZIP to $PATH.
This commit is contained in:
parent
de71cc4f83
commit
dd6b28d18b
1 changed files with 9 additions and 4 deletions
|
@ -29,6 +29,7 @@ (define-module (gnu system install)
|
|||
#:use-module (gnu packages disk)
|
||||
#:use-module (gnu packages grub)
|
||||
#:use-module (gnu packages texinfo)
|
||||
#:use-module (gnu packages compression)
|
||||
#:export (installation-os))
|
||||
|
||||
;;; Commentary:
|
||||
|
@ -42,10 +43,14 @@ (define (log-to-info)
|
|||
"Return a script that spawns the Info reader on the right section of the
|
||||
manual."
|
||||
(gexp->script "log-to-info"
|
||||
#~(execl (string-append #$texinfo-4 "/bin/info") "info"
|
||||
"-d" "/run/current-system/profile/share/info"
|
||||
"-f" (string-append #$guix "/share/info/guix.info")
|
||||
"-n" "System Installation")))
|
||||
#~(begin
|
||||
;; 'gunzip' is needed to decompress the doc.
|
||||
(setenv "PATH" (string-append #$gzip "/bin"))
|
||||
|
||||
(execl (string-append #$texinfo-4 "/bin/info") "info"
|
||||
"-d" "/run/current-system/profile/share/info"
|
||||
"-f" (string-append #$guix "/share/info/guix.info")
|
||||
"-n" "System Installation"))))
|
||||
|
||||
(define %backing-directory
|
||||
;; Sub-directory used as the backing store for copy-on-write.
|
||||
|
|
Loading…
Reference in a new issue