guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

04/16: install: Make sure 'info' can decompress the Info files.


From: Ludovic Courtès
Subject: 04/16: install: Make sure 'info' can decompress the Info files.
Date: Fri, 23 Jan 2015 15:38:58 +0000

civodul pushed a commit to branch master
in repository guix.

commit dd6b28d18b089235f6a29fc5435d1815cea76309
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 23 10:37:01 2015 +0100

    install: Make sure 'info' can decompress the Info files.
    
    * gnu/system/install.scm (log-to-info): Add GZIP to $PATH.
---
 gnu/system/install.scm |   13 +++++++++----
 1 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 35462ff..98b9d9d 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -29,6 +29,7 @@
   #: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 @@
   "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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]