Browse Source

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.
wip-grafts
Ludovic Courtès 9 years ago
parent
commit
67158a4900
  1. 3
      guix/build/download.scm

3
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))

Loading…
Cancel
Save