@@ -37,7 +37,7 @@ data ValidHeaders = ValidHeaders {
37 vhMethod :: ByteString
37 vhMethod :: ByteString
38 , vhPath :: ByteString
38 , vhPath :: ByteString
39 , vhAuth :: Maybe ByteString
39 , vhAuth :: Maybe ByteString
40− , vhCL :: Maybe Int
40+ , vhCL :: Maybe Int -- ^ Content-Length
41 , vhHeader :: RequestHeaders
41 , vhHeader :: RequestHeaders