X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPreprocess.hs;h=d951f6ae15bbba050036b5648d22f6bb8e3ca2bc;hp=3552e489e23da5494182a034788f90ef5519949d;hb=e624f0db8c4610b36da9e4463a656e0cb8a104dd;hpb=1e48e402adec79653203dc19a1800efa7b1c467b

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index 3552e48..d951f6a 100644
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -110,7 +110,9 @@ preprocess itr
 
               "content-length"
                   -> if all isDigit value then
-                         writeItr itr itrRequestBodyLength $ Just $ read value
+                         do let len = read value
+                            writeItr itr itrReqChunkLength    $ Just len
+                            writeItr itr itrReqChunkRemaining $ Just len
                      else
                          setStatus itr BadRequest