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 1106f14e14dcf06111e8abb872b2bfe5905083db..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,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