~ruther/guix-local

82fd23b81f6ab71ef4bc5f95f273bd77dbe6baf5 — Alex Kost 10 years ago 5c93de7 
download: Follow HTTP 307 "Temporary Redirection".

Fixes <http://bugs.gnu.org/23275>.
Reported by Albin Söderqvist <albin@fripost.org>.

* guix/build/download.scm (http-fetch): Follow redirections upon 307.
  This is what 'binaries.openttd.org' does.
patch browse .tar.gz .zip 
1 files changed, 2 insertions(+), 1 deletions(-)

M guix/build/download.scm

M guix/build/download.scm => guix/build/download.scm +2 -1
@@ 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))