aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-25 21:36:26 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-25 21:52:08 +0100
commit67158a490039b05d65a6dcf31194522b7763435c (patch)
treee0b03142ae962436e001b94cc52f21a0288f4c39
parent695e671723f482a101daf3c1d39aa5a76c922bb9 (diff)
downloadguix-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.scm3
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))