adjust the planet resolver to explicitly ask for no

compression so that it gets a Content-Length field that
it can use back from the server

this may or may not be the right long-term fix but
for now it at least gets things working again
This commit is contained in:
Robby Findler 2013-09-13 10:37:20 -05:00
parent 1574d5c9c6
commit e74b26fdbc

View File

@ -762,7 +762,9 @@ See the scribble documentation on the planet/resolver module.
(with-handlers ([exn:fail:network? (λ (e) (return (exn-message e)))])
(let* ([target (pkg->download-url pkg)]
[ip (get-impure-port target)]
[ip (get-impure-port
target
(list "Accept-Encoding: identity"))]
[head (purify-port ip)]
[response-code/str (get-http-response-code head)]
[response-code (and response-code/str