summary refs log tree commit diff
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.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))