ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-28 07:12:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

download: Use invoke instead of system*.

Browse source 
* guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
This commit is contained in:
Mark H Weaver 2018-03-16 03:40:00 -04:00
parent ad1656dc91
commit 20927c9331
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/download.scm
View file

@ -517,8 +517,8 @@ (define tar
(mkdir #$output) (mkdir #$output)
(setenv "PATH" (string-append #$gzip "/bin")) (setenv "PATH" (string-append #$gzip "/bin"))
(chdir #$output) (chdir #$output)
(zero? (system* (string-append #$tar "/bin/tar") (invoke (string-append #$tar "/bin/tar")
"xf" #$drv))) "xf" #$drv))
#:local-build? #t))) #:local-build? #t)))
(define* (url-fetch/zipbomb url hash-algo hash (define* (url-fetch/zipbomb url hash-algo hash
@ -546,8 +546,8 @@ (define unzip
#~(begin #~(begin
(mkdir #$output) (mkdir #$output)
(chdir #$output) (chdir #$output)
(zero? (system* (string-append #$unzip "/bin/unzip") (invoke (string-append #$unzip "/bin/unzip")
#$drv))) #$drv))
#:local-build? #t))) #:local-build? #t)))
(define* (download-to-store store url #:optional (name (basename url)) (define* (download-to-store store url #:optional (name (basename url))