X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FInternal.hs;fp=Network%2FHTTP%2FLucu%2FResource%2FInternal.hs;h=b13d3a9f14062e76b3090086cf992f98aae03f4c;hp=1993eb251deafdb09dbb98f0916601b581dc5a15;hb=742b0cae221f12eafbf1379b91c473b059efa7d8;hpb=246d66d6d3130e03834a6c3badc38711a1879aae

diff --git a/Network/HTTP/Lucu/Resource/Internal.hs b/Network/HTTP/Lucu/Resource/Internal.hs
index 1993eb2..b13d3a9 100644
--- a/Network/HTTP/Lucu/Resource/Internal.hs
+++ b/Network/HTTP/Lucu/Resource/Internal.hs
@@ -302,7 +302,7 @@ getChunk' n
     | n < 0     = fail ("getChunk: n must not be negative: " ⧺ show n)
     | n ≡ 0     = return (∅)
     | otherwise = do req ← getRequest
-                     if reqMustHaveBody req then
+                     if reqHasBody req then
                          askForInput =≪ getInteraction
                      else
                          driftTo DecidingHeader *> return (∅)