publish: Do not compress already-compressed files.
authorLudovic Courtès <ludo@gnu.org>
Mon, 1 Aug 2016 15:42:09 +0000 (17:42 +0200)
committerLudovic Courtès <ludo@gnu.org>
Mon, 1 Aug 2016 15:58:56 +0000 (17:58 +0200)
commit089b167812624cc69aac95d5a1b69688e3f97117
tree2255fe27e3356307e33c20c2281d60bbfbec293b
parent66c65aafa73f9ca816825abb7f84b353f7bcfdf6
publish: Do not compress already-compressed files.

* guix/scripts/publish.scm (narinfo-string): Force %NO-COMPRESSION when
STORE-PATH matches 'compressed-file?'.
* guix/utils.scm (compressed-file?): New procedure.
* tests/publish.scm ("/*.narinfo for a compressed file"): New test.
guix/scripts/publish.scm
guix/utils.scm
tests/publish.scm