From ec4d308a9e306e8784c324a2f8511e27c50f9dff Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 13 Nov 2012 22:57:36 +0100 Subject: guix-download: Use code from (guix build download). * guix-download.in (http-fetch, ftp-fetch): Remove. (fetch-and-store): Replace `uri' parameter with `name', for the output file name. Redirect the output of `fetch' to the error port. (guix-download): Call `url-fetch' for all URI schemes except `file'. Handle PATH equal to #f. * guix/download.scm: Export `%mirrors'. * tests/guix-download.sh: Change erroneous URL, because URLs at example.com are all valid redirections. --- guix/download.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix') diff --git a/guix/download.scm b/guix/download.scm index 27f58139b3..6a5d1e1fe2 100644 --- a/guix/download.scm +++ b/guix/download.scm @@ -23,7 +23,8 @@ #:use-module ((guix store) #:select (derivation-path?)) #:use-module (guix utils) #:use-module (srfi srfi-26) - #:export (url-fetch)) + #:export (%mirrors + url-fetch)) ;;; Commentary: ;;; -- cgit v1.2.3