diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2020-12-28 22:03:23 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2020-12-29 13:38:54 -0500 |
| commit | 7f80cc81025f80b210fc1b301d0a663faa2f4195 (patch) | |
| tree | 2a44c67719ddefd4ba18409ce29a901ce331d554 /guix/build/gnu-build-system.scm | |
| parent | 067f28a7d715f3bced41e0159e3372016129a84c (diff) | |
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.
Diffstat (limited to 'guix/build/gnu-build-system.scm')
| -rw-r--r-- | guix/build/gnu-build-system.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm index 9480f08b72..e556457db9 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. |