examples/HelloWorld.hs fully works now.

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

diff --git a/Network/HTTP/Lucu/Interaction.hs b/Network/HTTP/Lucu/Interaction.hs
index ac5c1d6285aa33d936d4ae23135cb09b4ef8e125..3ecc9126f4292a63a239db5a0efb246f76909402 100644 (file)
--- a/Network/HTTP/Lucu/Interaction.hs
+++ b/Network/HTTP/Lucu/Interaction.hs
@@ -96,8 +96,8 @@ newInteraction conf@(Config {..}) port addr cert request
 
          response        ← newTVarIO res
          willChunkBody   ← newTVarIO False
-         willDiscardBody ← newTVarIO False
-         willClose       ← newTVarIO False
+         willDiscardBody ← newTVarIO (arWillDiscardBody ar)
+         willClose       ← newTVarIO (arWillClose       ar)
          bodyToSend      ← newEmptyTMVarIO
          sentNoBodySoFar ← newTVarIO True