X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPreprocess.hs;fp=Network%2FHTTP%2FLucu%2FPreprocess.hs;h=0848f15124e590205a9b4d5d44c89a8b071e3c2a;hp=1915b1bd44e3a93f95ffba41f922d3f2bea0bc94;hb=742b0cae221f12eafbf1379b91c473b059efa7d8;hpb=246d66d6d3130e03834a6c3badc38711a1879aae

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index 1915b1b..0848f15 100644
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -196,7 +196,7 @@ examineBodyLength ∷ State AugmentedRequest ()
 examineBodyLength
     = do req ← gets arRequest
          len ← gets arReqBodyLength
-         if reqMustHaveBody req then
+         if reqHasBody req then
              -- POST and PUT requests must have an entity body.
              when (isNothing len)
                  $ setStatus LengthRequired