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.
This commit is contained in:
parent
5c93de7337
commit
82fd23b81f
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue