diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-11-13 22:57:36 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-13 23:04:21 +0100 |
| commit | ec4d308a9e306e8784c324a2f8511e27c50f9dff (patch) | |
| tree | 73af7484ae7288c032eac7ce3966b96b818e17f0 /guix/download.scm | |
| parent | 352ec143de32e751286590ff51c40f5a32c7fa87 (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.scm | 3 |
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: ;;; |