From 7f80cc81025f80b210fc1b301d0a663faa2f4195 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Mon, 28 Dec 2020 22:03:23 -0500 Subject: [PATCH] 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. --- guix/build/gnu-build-system.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 9480f08b729da3ddf06185f81d2df7ed3734e762..e556457db9d963e1c6915f9d891bb625ffb7ad6f 100644 --- a/guix/build/gnu-build-system.scm +++ b/guix/build/gnu-build-system.scm @@ -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.