From c105653329bba7e71b960c782515ca23edf83e3f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 14 Sep 2017 23:16:22 +0200
Subject: guix download: Honor mirrors when using '-o'.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Previously "guix download -o x mirror://gnu/…" would fail.

* guix/scripts/download.scm (download-to-file): Pass #:mirrors to
'url-fetch'.
---
 guix/scripts/download.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix/scripts/download.scm')

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))
-- 
cgit v1.2.3