02/02: build-systems/gnu: Add compressor file extension to symbolic links.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 7f80cc81025f80b210fc1b301d0a663faa2f4195
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Dec 28 22:03:23 2020 -0500

    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 9480f08..e556457 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.