From 67158a490039b05d65a6dcf31194522b7763435c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 25 Jan 2013 21:36:26 +0100 Subject: [PATCH] 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. --- guix/build/download.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix/build/download.scm b/guix/build/download.scm index a04e781480..cda715993e 100644 --- a/guix/build/download.scm +++ b/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))