X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FRequestReader.hs;fp=Network%2FHTTP%2FLucu%2FRequestReader.hs;h=062ffe204ec192e5f5b0d0e52131f352989752d4;hp=91aa86dc61be20313b4b672b59806177441d3399;hb=742b0cae221f12eafbf1379b91c473b059efa7d8;hpb=246d66d6d3130e03834a6c3badc38711a1879aae

diff --git a/Network/HTTP/Lucu/RequestReader.hs b/Network/HTTP/Lucu/RequestReader.hs
index 91aa86d..062ffe2 100644
--- a/Network/HTTP/Lucu/RequestReader.hs
+++ b/Network/HTTP/Lucu/RequestReader.hs
@@ -151,7 +151,7 @@ acceptRequestForResource ctx@(Context {..}) ar@(AugmentedRequest {..}) input rsr
 #endif
          tid  ← spawnRsrc rsrcDef ni
          enqueue ctx ni
-         if reqMustHaveBody arRequest then
+         if reqHasBody arRequest then
              waitForReceiveBodyReq ctx ni tid input
          else
              acceptRequest ctx input