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.
This commit is contained in:
parent
695e671723
commit
67158a4900
|
@ -207,7 +207,8 @@ which is not available during bootstrap."
|
||||||
(newline))
|
(newline))
|
||||||
(put-bytevector p bv-or-port))))
|
(put-bytevector p bv-or-port))))
|
||||||
file))
|
file))
|
||||||
((302) ; found (redirection)
|
((301 ; moved permanently
|
||||||
|
302) ; found (redirection)
|
||||||
(let ((uri (response-location resp)))
|
(let ((uri (response-location resp)))
|
||||||
(format #t "following redirection to `~a'...~%"
|
(format #t "following redirection to `~a'...~%"
|
||||||
(uri->string uri))
|
(uri->string uri))
|
||||||
|
|
Loading…
Reference in New Issue