03/05: download: Follow HTTP 307 "Temporary Redirection".

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 82fd23b81f6ab71ef4bc5f95f273bd77dbe6baf5
Author: Alex Kost <address@hidden>
Date:   Tue Apr 12 11:14:59 2016 +0300

    download: Follow HTTP 307 "Temporary Redirection".
    
    Fixes <http://bugs.gnu.org/23275>.
    Reported by Albin Söderqvist <address@hidden>.
    
    * guix/build/download.scm (http-fetch): Follow redirections upon 307.
      This is what 'binaries.openttd.org' does.
---
 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 0568800..fb236d3 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -530,7 +530,8 @@ Return the resulting target URI."
                  (put-bytevector p bv-or-port))))
          file))
       ((301                                       ; moved permanently
-        302)                                      ; found (redirection)
+        302                                       ; found (redirection)
+        307)                                      ; temporary redirection
        (let ((uri (resolve-uri-reference (response-location resp) uri)))
          (format #t "following redirection to `~a'...~%"
                  (uri->string uri))