packages: Fix patch-and-repack for ZIP files.

* guix/packages.scm (patch-and-repack): Fix for ZIP files.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Danny Milosavljevic 2021-03-17 01:56:38 +01:00 committed by Ludovic Courtès
parent 1010171280
commit d115747362
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -751,7 +751,7 @@ (define (repack directory output)
((and=> (compressor #+source) (cut string= "unzip" <>))
;; Note: Referring to the store unzip here (#+unzip)
;; would introduce a cycle.
("unzip" (invoke "unzip" #+source)))
(invoke "unzip" #+source))
(else
(copy-file #+source name)
(when command