diff options
Diffstat (limited to 'guix/build/download.scm')
| -rw-r--r-- | guix/build/download.scm | 14 |
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)) |