Many improvements

[Lucu.git] / Network / HTTP / Lucu / Preprocess.hs

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index 3552e489e23da5494182a034788f90ef5519949d..d951f6ae15bbba050036b5648d22f6bb8e3ca2bc 100644 (file)
--- 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