summaryrefslogtreecommitdiff
path: root/guix/download.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-13 22:57:36 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-13 23:04:21 +0100
commitec4d308a9e306e8784c324a2f8511e27c50f9dff (patch)
tree73af7484ae7288c032eac7ce3966b96b818e17f0 /guix/download.scm
parent352ec143de32e751286590ff51c40f5a32c7fa87 (diff)
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.
Diffstat (limited to 'guix/download.scm')
-rw-r--r--guix/download.scm3
1 files changed, 2 insertions, 1 deletions
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:
;;;