X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FInteraction.hs;h=3ecc9126f4292a63a239db5a0efb246f76909402;hp=ac5c1d6285aa33d936d4ae23135cb09b4ef8e125;hb=895341e;hpb=05f8f795a483f672b7cafc7ba9d444dc84b937a8

diff --git a/Network/HTTP/Lucu/Interaction.hs b/Network/HTTP/Lucu/Interaction.hs
index ac5c1d6..3ecc912 100644
--- 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