me
/
guix
Archived
1
0
Fork 0
Code

download: Add "Accept: */*" to the headers. 

Fixes downloads from https://alioth.debian.org.
Reported by John Darrington <jmd@gnu.org>.

* guix/build/download.scm (http-fetch)[headers]: Add 'Accept'.
master
Ludovic Courtès 2014-10-19 12:07:26 +02:00
parent d99e12d247
commit 38bf090e7c
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/build/download.scm
View File

@ -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
'(;; 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")))
(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))