Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed a length bug in receiveRequest

  • Loading branch information...
commit bf147827bcf9ce163750ec93465af8543301aa3c 1 parent c981126
@syg syg authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Hyena/Http.hs
View
2  Hyena/Http.hs
@@ -122,7 +122,7 @@ receiveRequest sock = do
let len = contentLength req
rest = bytesEnum bs
enum = case len of
- Just n -> partialSocketEnum sock n
+ Just n -> partialSocketEnum sock (n - S.length bs)
Nothing -> chunkEnum $ socketEnum sock
in return $ Just
Request
Please sign in to comment.
Something went wrong with that request. Please try again.