From 38bf090e7c3952bb30707fe544987cccc85b8677 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 19 Oct 2014 12:07:26 +0200 Subject: [PATCH] download: Add "Accept: */*" to the headers. Fixes downloads from https://alioth.debian.org. Reported by John Darrington . * guix/build/download.scm (http-fetch)[headers]: Add 'Accept'. --- guix/build/download.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/guix/build/download.scm b/guix/build/download.scm index c081f3b29b..26b497d458 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -212,10 +212,14 @@ which is not available during bootstrap." (string>? (version) "2.0.7"))) (define headers - ;; Some web sites, such as http://dist.schmorp.de, would block you if - ;; there's no 'User-Agent' header, presumably on the assumption that - ;; you're a spammer. So work around that. - '((User-Agent . "GNU Guile"))) + '(;; Some web sites, such as http://dist.schmorp.de, would block you if + ;; there's no 'User-Agent' header, presumably on the assumption that + ;; you're a spammer. So work around that. + (User-Agent . "GNU Guile") + + ;; Some servers, such as https://alioth.debian.org, return "406 Not + ;; Acceptable" when not explicitly told that everything is accepted. + (Accept . "*/*"))) (let*-values (((connection) (open-connection-for-uri uri)) @@ -246,7 +250,7 @@ which is not available during bootstrap." (if (port? bv-or-port) (begin (dump-port bv-or-port p - #:buffer-size 65536 ; don't flood the log + #:buffer-size 65536 ; don't flood the log #:progress (progress-proc (uri-abbreviation uri) size)) (newline))