The library compiles again.

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

diff --git a/Network/HTTP/Lucu/Interaction.hs b/Network/HTTP/Lucu/Interaction.hs
index 86b6dbd4fb85293071f2328eec6c5eab8ac090fd..20b4bc27ec956fffb6b959be6dae9c6359182694 100644 (file)
--- a/Network/HTTP/Lucu/Interaction.hs
+++ b/Network/HTTP/Lucu/Interaction.hs
@@ -42,6 +42,7 @@ data Interaction = Interaction {
     , itrReceiveBodyReq    ∷ !(TMVar ReceiveBodyRequest)
     , itrReceivedBody      ∷ !(TMVar Strict.ByteString)
 
+    , itrSendContinue      ∷ !(TMVar Bool)
     , itrResponse          ∷ !(TVar Response)
     , itrWillChunkBody     ∷ !(TVar Bool)
     , itrWillDiscardBody   ∷ !(TVar Bool)
@@ -89,6 +90,7 @@ newInteraction conf@(Config {..}) port addr cert request
          receiveBodyReq   ← newEmptyTMVarIO
          receivedBody     ← newEmptyTMVarIO
 
+         sendContinue     ← newEmptyTMVarIO
          response         ← newTVarIO res
          willChunkBody    ← newTVarIO False
          willDiscardBody  ← newTVarIO (arWillDiscardBody ar)
@@ -112,6 +114,7 @@ newInteraction conf@(Config {..}) port addr cert request
                     , itrReceiveBodyReq   = receiveBodyReq
                     , itrReceivedBody     = receivedBody
 
+                    , itrSendContinue     = sendContinue
                     , itrResponse         = response
                     , itrWillChunkBody    = willChunkBody
                     , itrWillDiscardBody  = willDiscardBody