X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FPreprocess.hs;h=739dec89f6d6058486a00cf404e7d6a12b7280c9;hb=72a3e24a952616e32845eeb4fc05048e841c91a2;hp=f2212ab104b3052a47fd91de90050f0ccf31a6cd;hpb=ca338174155913a969808d7b20193973394e474e;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Preprocess.hs b/Network/HTTP/Lucu/Preprocess.hs
index f2212ab..739dec8 100644
--- a/Network/HTTP/Lucu/Preprocess.hs
+++ b/Network/HTTP/Lucu/Preprocess.hs
@@ -41,6 +41,7 @@ data AugmentedRequest
 data RequestBodyLength
     = Fixed !Int
     | Chunked
+    deriving (Eq, Show)
 
 preprocess ∷ Text
            → PortNumber
@@ -215,7 +216,7 @@ examineBodyLength ∷ State AugmentedRequest ()
 examineBodyLength
     = do req ← gets (fromJust ∘ arRequest)
          len ← gets arReqBodyLength
-         if reqHasBody req then
+         if reqMustHaveBody req then
              -- POST and PUT requests must have an entity body.
              when (isNothing len)
                  $ setStatus LengthRequired