More informative HTTP reading error message

This commit is contained in:
Jay McCarthy 2012-12-17 16:28:40 -07:00
parent 921456f3ad
commit d120286f89

View File

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