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