self: Compress Info files.

Fixes <https://bugs.gnu.org/33993>.
Reported by Adonay Felipe Nogueira <adfeno@hyperbola.info>.

* guix/self.scm (info-manual): Compress Info files.
This commit is contained in:
Ludovic Courtès 2019-01-08 18:07:16 +01:00
parent c108c46fb4
commit 08fdee3911
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -384,7 +384,14 @@ (define build
(basename texi ".texi")
".info")))
(cons "guix.texi"
(find-files "." "^guix\\.[a-z]{2}\\.texi$"))))))
(find-files "." "^guix\\.[a-z]{2}\\.texi$")))
;; Compress Info files.
(setenv "PATH"
#+(file-append (specification->package "gzip") "/bin"))
(for-each (lambda (file)
(invoke "gzip" "-9n" file))
(find-files #$output "\\.info(-[0-9]+)?$")))))
(computed-file "guix-manual" build))