diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-16 03:40:00 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-16 05:02:01 -0400 |
| commit | 20927c9331b493eaf94211ad9f8a5055e11b4588 (patch) | |
| tree | e169d25b6d521a29628d2f7535a07bc0d376eda4 | |
| parent | ad1656dc917cd7f9702cf0d7623f642a7f4bb522 (diff) | |
| download | patches-20927c9331b493eaf94211ad9f8a5055e11b4588.tar patches-20927c9331b493eaf94211ad9f8a5055e11b4588.tar.gz | |
download: Use invoke instead of system*.
* guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
| -rw-r--r-- | guix/download.scm | 8 |
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)) |