mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
build-system/gnu: Add support for zip archives.
Fixes <http://bugs.gnu.org/19866>. Reported by Andreas Enge <andreas@enge.fr>. * guix/build/gnu-build-system.scm (unpack): Use 'unzip' when SOURCE ends in '.zip'.
This commit is contained in:
parent
93be4e8e6c
commit
cd0385b61a
1 changed files with 3 additions and 1 deletions
|
@ -108,7 +108,9 @@ (define* (unpack #:key source #:allow-other-keys)
|
||||||
(copy-recursively source "."
|
(copy-recursively source "."
|
||||||
#:keep-mtime? #t)
|
#:keep-mtime? #t)
|
||||||
#t)
|
#t)
|
||||||
(and (zero? (system* "tar" "xvf" source))
|
(and (if (string-suffix? ".zip" source)
|
||||||
|
(zero? (system* "unzip" source))
|
||||||
|
(zero? (system* "tar" "xvf" source)))
|
||||||
(chdir (first-subdirectory ".")))))
|
(chdir (first-subdirectory ".")))))
|
||||||
|
|
||||||
;; See <http://bugs.gnu.org/17840>.
|
;; See <http://bugs.gnu.org/17840>.
|
||||||
|
|
Loading…
Reference in a new issue