~ruther/guix-local

7f80cc81025f80b210fc1b301d0a663faa2f4195 — Maxim Cournoyer 5 years ago 067f28a
build-systems/gnu: Add compressor file extension to symbolic links.

Otherwise man and info readers are not able to read their content as they rely
on the file extension to detect if compression is used.

* guix/build/gnu-build-system.scm (compress-documentation)
[retarget-symlink]: Append the compressor file extension to the link file name.
1 files changed, 1 insertions(+), 1 deletions(-)

M guix/build/gnu-build-system.scm
M guix/build/gnu-build-system.scm => guix/build/gnu-build-system.scm +1 -1
@@ 596,7 596,7 @@ DOCUMENTATION-COMPRESSOR-FLAGS."
    (let ((target (readlink link)))
      (delete-file link)
      (symlink (string-append target compressed-documentation-extension)
               link)))
               (string-append link compressed-documentation-extension))))

  (define (has-links? file)
    ;; Return #t if FILE has hard links.