, itrReceiveBodyReq ∷ !(TMVar ReceiveBodyRequest)
, itrReceivedBody ∷ !(TMVar Strict.ByteString)
+ , itrSendContinue ∷ !(TMVar Bool)
, itrResponse ∷ !(TVar Response)
, itrWillChunkBody ∷ !(TVar Bool)
, itrWillDiscardBody ∷ !(TVar Bool)
receiveBodyReq ← newEmptyTMVarIO
receivedBody ← newEmptyTMVarIO
+ sendContinue ← newEmptyTMVarIO
response ← newTVarIO res
willChunkBody ← newTVarIO False
willDiscardBody ← newTVarIO (arWillDiscardBody ar)
, itrReceiveBodyReq = receiveBodyReq
, itrReceivedBody = receivedBody
+ , itrSendContinue = sendContinue
, itrResponse = response
, itrWillChunkBody = willChunkBody
, itrWillDiscardBody = willDiscardBody