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

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index d951f6a..1c11f89 100644
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -70,22 +70,12 @@ preprocess itr
                 case reqMethod req of
                   GET  -> return ()
                   HEAD -> writeItr itr itrWillDiscardBody True
-                  POST -> ensureHavingBody itr
-                  PUT  -> ensureHavingBody itr
+                  POST -> writeItr itr itrRequestHasBody True
+                  PUT  -> writeItr itr itrRequestHasBody True
                   _    -> setStatus itr NotImplemented
                   
                 mapM_ (preprocessHeader itr) (reqHeaders req)
     where
-      ensureHavingBody itr
-          = let req = fromJust $ itrRequest itr
-            in
-              if getHeader "Content-Length"    req == Nothing &&
-                 getHeader "Transfer-Encoding" req == Nothing then
-
-                  setStatus itr LengthRequired
-              else
-                  writeItr itr itrRequestHasBody True
-
       setStatus itr status
           = writeItr itr itrResponse $ Just (Response {
                                                resVersion = HttpVersion 1 1