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

diff --git a/Network/HTTP/Lucu/ResponseWriter.hs b/Network/HTTP/Lucu/ResponseWriter.hs
index 1106f14..d13dd84 100644
--- 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,7 +113,7 @@ writeContinueIfNeeded ∷ HandleLike h
                       → STM (IO ())
 writeContinueIfNeeded ctx itr@(Interaction {..}) phase
     | phase ≡ Initial ∧ itrExpectedContinue ≡ Just True
-        = do isRequested ← isEmptyTMVar itrGetBodyRequest
+        = do isRequested ← isEmptyTMVar itrReceiveBodyReq
              if isRequested then
                  return $ writeContinue ctx itr
              else