X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResponseWriter.hs;h=1106f14e14dcf06111e8abb872b2bfe5905083db;hp=587c01b695b1de62111a14ce9a70772cf467aa50;hb=1f0a19cbad7c4b64a773d7f1c1ae9180448624e6;hpb=1789cee5ee66d2f7f2b26280be2f13eac4df7980

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 587c01b..1106f14 100644
--- a/Network/HTTP/Lucu/ResponseWriter.hs
+++ b/Network/HTTP/Lucu/ResponseWriter.hs
@@ -113,8 +113,8 @@ writeContinueIfNeeded ∷ HandleLike h
                       → STM (IO ())
 writeContinueIfNeeded ctx itr@(Interaction {..}) phase
     | phase ≡ Initial ∧ itrExpectedContinue ≡ Just True
-        = do reqBodyWanted ← readTVar itrReqBodyWanted
-             if reqBodyWanted > 0 then
+        = do isRequested ← isEmptyTMVar itrGetBodyRequest
+             if isRequested then
                  return $ writeContinue ctx itr
              else
                  retry