summaryrefslogtreecommitdiff
path: root/guix/download.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2018-03-16 03:40:00 -0400
committerMark H Weaver <mhw@netris.org>2018-03-16 05:02:01 -0400
commit20927c9331b493eaf94211ad9f8a5055e11b4588 (patch)
treee169d25b6d521a29628d2f7535a07bc0d376eda4 /guix/download.scm
parentad1656dc917cd7f9702cf0d7623f642a7f4bb522 (diff)
download: Use invoke instead of system*.
* guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
Diffstat (limited to 'guix/download.scm')
-rw-r--r--guix/download.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/download.scm b/guix/download.scm
index 55da2c1d37..50aa78fe0d 100644
--- a/guix/download.scm
+++ b/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))