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" <>)) ((and=> (compressor #+source) (cut string= "unzip" <>))
;; Note: Referring to the store unzip here (#+unzip) ;; Note: Referring to the store unzip here (#+unzip)
;; would introduce a cycle. ;; would introduce a cycle.
("unzip" (invoke "unzip" #+source))) (invoke "unzip" #+source))
(else (else
(copy-file #+source name) (copy-file #+source name)
(when command (when command