suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust the planet resolver to explicitly ask for no

Browse Source 
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
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/planet/private/resolver.rkt
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)))]) (with-handlers ([exn:fail:network? (λ (e) (return (exn-message e)))])
(let* ([target (pkg->download-url pkg)] (let* ([target (pkg->download-url pkg)]
[ip (get-impure-port target)] [ip (get-impure-port
target
(list "Accept-Encoding: identity"))]
[head (purify-port ip)] [head (purify-port ip)]
[response-code/str (get-http-response-code head)] [response-code/str (get-http-response-code head)]
[response-code (and response-code/str [response-code (and response-code/str