mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

download: Follow HTTP redirection upon 301 "moved permanently".

Browse source 
* guix/build/download.scm (http-fetch): Follow redirections upon 301.
  This is what `downloads.sourceforge.net' returns, for instance.
This commit is contained in:
Ludovic Courtès 2013-01-25 21:36:26 +01:00
parent 695e671723
commit 67158a4900
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/build/download.scm
View file

@ -207,7 +207,8 @@ (define (http-fetch uri file)
(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))