rename: reqMustHaveBody --> reqHasBody

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

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index 1915b1bd44e3a93f95ffba41f922d3f2bea0bc94..0848f15124e590205a9b4d5d44c89a8b071e3c2a 100644 (file)
--- 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
 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
              -- POST and PUT requests must have an entity body.
              when (isNothing len)
                  $ setStatus LengthRequired