summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-09-14 23:16:22 +0200
committerLudovic Courtès <ludo@gnu.org>2017-09-14 23:34:35 +0200
commitc105653329bba7e71b960c782515ca23edf83e3f (patch)
treed5de3fa17d5597e099b0b1694c9db5df7058c605
parentdb7f7eb8ca670ee5d76e3bad3ada29e87e3f6a10 (diff)
downloadguix-c105653329bba7e71b960c782515ca23edf83e3f.tar.gz
guix download: Honor mirrors when using '-o'.
Previously "guix download -o x mirror://gnu/…" would fail.

* guix/scripts/download.scm (download-to-file): Pass #:mirrors to
'url-fetch'.
-rw-r--r--guix/scripts/download.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/download.scm b/guix/scripts/download.scm
index f40213be33..8225f82bb9 100644
--- a/guix/scripts/download.scm
+++ b/guix/scripts/download.scm
@@ -49,7 +49,7 @@
       ((or 'file #f)
        (copy-file (uri-path uri) file))
       (_
-       (url-fetch url file)))
+       (url-fetch url file #:mirrors %mirrors)))
     file))
 
 (define* (download-to-store* url #:key (verify-certificate? #t))