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

more accurate error message when content-length is missing

Browse Source
This commit is contained in:
Robby Findler 2016-01-05 09:09:52 -06:00
parent 3df12dca58
commit 3f4dcb8e87
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/planet/private/resolver.rkt
View File

@ -782,11 +782,13 @@ See the scribble documentation on the planet/resolver module.
(let ([maj/str (extract-field "Package-Major-Version" head)] (let ([maj/str (extract-field "Package-Major-Version" head)]
[min/str (extract-field "Package-Minor-Version" head)] [min/str (extract-field "Package-Minor-Version" head)]
[content-length/str (extract-field "Content-Length" head)]) [content-length/str (extract-field "Content-Length" head)])
(unless (and maj/str min/str content-length/str (unless (and maj/str min/str
(nat? (string->number maj/str)) (nat? (string->number maj/str))
(nat? (string->number min/str)) (nat? (string->number min/str)))
(nat? (string->number content-length/str)))
(abort "Server did not include valid major and minor version information")) (abort "Server did not include valid major and minor version information"))
(unless (and content-length/str
(nat? (string->number content-length/str)))
(abort "Server did not include content-length"))
(let* ([filename (make-temporary-file "planettmp~a.plt")] (let* ([filename (make-temporary-file "planettmp~a.plt")]
[maj (string->number maj/str)] [maj (string->number maj/str)]
[min (string->number min/str)] [min (string->number min/str)]