Resource.hs compiles again.

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

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 587c01b695b1de62111a14ce9a70772cf467aa50..d13dd84e02d9a12b2f3ab3a8196cf29ec6dcf4e0 100644 (file)
--- a/Network/HTTP/Lucu/ResponseWriter.hs
+++ b/Network/HTTP/Lucu/ResponseWriter.hs
@@ -98,10 +98,10 @@ awaitSomethingToWriteOn ctx itr phase
     = join $
       atomically $
       do state ← readTVar $ itrState itr
-         if state ≡ GettingBody then
+         if state ≡ ReceivingBody then
              writeContinueIfNeeded ctx itr phase
          else
-             if state ≥ DecidingBody then
+             if state ≥ SendingBody then
                  writeHeaderOrBodyIfNeeded ctx itr phase
              else
                  retry
@@ -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 itrReceiveBodyReq
+             if isRequested then
                  return $ writeContinue ctx itr
              else
                  retry