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

More informative HTTP reading error message

Browse Source
This commit is contained in:
Jay McCarthy 2012-12-17 16:28:40 -07:00
parent 921456f3ad
commit d120286f89
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/http/request.rkt
View File

@ -193,7 +193,7 @@
[(list _ field value) [(list _ field value)
(list* (make-header field (read-one-head in value)) (list* (make-header field (read-one-head in value))
(read-header))])] (read-header))])]
[else (network-error 'read-headers "malformed header")]))) [else (network-error 'read-headers "malformed header: ~e" l)])))
; read-one-head : iport bytes -> bytes ; read-one-head : iport bytes -> bytes
(define (read-one-head in rhs) (define (read-one-head in rhs)