aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/build/download.scm14
1 files 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))