X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FInteraction.hs;h=20b4bc27ec956fffb6b959be6dae9c6359182694;hp=86b6dbd4fb85293071f2328eec6c5eab8ac090fd;hb=8225cc52ffe4c3d900ae1f79573089be230b80bd;hpb=7bc27fc4e86df6cb4d269b42252de735247f8c57

diff --git a/Network/HTTP/Lucu/Interaction.hs b/Network/HTTP/Lucu/Interaction.hs
index 86b6dbd..20b4bc2 100644
--- 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