diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-25 21:36:26 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-25 21:52:08 +0100 |
| commit | 67158a490039b05d65a6dcf31194522b7763435c (patch) | |
| tree | e0b03142ae962436e001b94cc52f21a0288f4c39 | |
| parent | 695e671723f482a101daf3c1d39aa5a76c922bb9 (diff) | |
| download | guix-67158a490039b05d65a6dcf31194522b7763435c.tar guix-67158a490039b05d65a6dcf31194522b7763435c.tar.gz | |
download: Follow HTTP redirection upon 301 "moved permanently".
* guix/build/download.scm (http-fetch): Follow redirections upon 301.
This is what `downloads.sourceforge.net' returns, for instance.
| -rw-r--r-- | guix/build/download.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm index a04e781480..cda715993e 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -207,7 +207,8 @@ which is not available during bootstrap." (newline)) (put-bytevector p bv-or-port)))) file)) - ((302) ; found (redirection) + ((301 ; moved permanently + 302) ; found (redirection) (let ((uri (response-location resp))) (format #t "following redirection to `~a'...~%" (uri->string uri)) |