diff options
| author | Alex Kost <alezost@gmail.com> | 2016-04-12 11:14:59 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-04-14 10:34:37 +0300 |
| commit | 82fd23b81f6ab71ef4bc5f95f273bd77dbe6baf5 (patch) | |
| tree | c83a60b6edaa45d5f81b6f397f7497bfa7fdfa20 /guix/build/download.scm | |
| parent | 5c93de733789e328c2e25a11d4d32889ec6bf033 (diff) | |
| download | guix-patches-82fd23b81f6ab71ef4bc5f95f273bd77dbe6baf5.tar guix-patches-82fd23b81f6ab71ef4bc5f95f273bd77dbe6baf5.tar.gz | |
download: Follow HTTP 307 "Temporary Redirection".
Fixes <http://bugs.gnu.org/23275>.
Reported by Albin Söderqvist <albin@fripost.org>.
* guix/build/download.scm (http-fetch): Follow redirections upon 307.
This is what 'binaries.openttd.org' does.
Diffstat (limited to 'guix/build/download.scm')
| -rw-r--r-- | guix/build/download.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm index 0568800d7f..fb236d314a 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -530,7 +530,8 @@ Return the resulting target URI." (put-bytevector p bv-or-port)))) file)) ((301 ; moved permanently - 302) ; found (redirection) + 302 ; found (redirection) + 307) ; temporary redirection (let ((uri (resolve-uri-reference (response-location resp) uri))) (format #t "following redirection to `~a'...~%" (uri->string uri)) |