summaryrefslogtreecommitdiff
path: root/guix/build/download.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2017-08-28 15:46:10 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2017-09-05 20:57:13 +0200
commit57d28987722cb6b830fae212ea0d6a704580ff9c (patch)
treea759ac2148dadeb3a4acb72c99651746f9ba8eb1 /guix/build/download.scm
parenta4c1e99ed95c5032f8e6201fb7bcf1692f9c92c8 (diff)
Handle the same HTTP redirects everywhere.
* guix/build/download.scm (http-fetch): Complete the hard-coded list of HTTP redirection status codes. * guix/http-client.scm (http-fetch): Likewise. * guix/scripts/lint.scm (probe-uri): Likewise.
Diffstat (limited to 'guix/build/download.scm')
-rw-r--r--guix/build/download.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm
index 6ef6233346..bcf22663b0 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Steve Sprang <scs@stevesprang.com>
+;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -763,7 +764,9 @@ certificates; otherwise simply ignore them."
file))
((301 ; moved permanently
302 ; found (redirection)
- 307) ; temporary redirection
+ 303 ; see other
+ 307 ; temporary redirection
+ 308) ; permanent redirection
(let ((uri (resolve-uri-reference (response-location resp) uri)))
(format #t "following redirection to `~a'...~%"
(uri->string uri))