Browse Source

download: Use invoke instead of system*.

* guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
version-0.15.0
Mark H Weaver 4 years ago
parent
commit
20927c9331
No known key found for this signature in database GPG Key ID: 7CEF29847562C516
  1. 8
      guix/download.scm

8
guix/download.scm

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

Loading…
Cancel
Save