, seiResponse ∷ !Response
, seiWillChunkBody ∷ !Bool
- , seiWillDiscardBody ∷ !Bool
, seiWillClose ∷ !Bool
, seiBodyToSend ∷ !Builder
}
, seiResponse = res
, seiWillChunkBody = arWillChunkBody
- , seiWillDiscardBody = arWillDiscardBody
, seiWillClose = arWillClose
, seiBodyToSend = body
}
, niResponse ∷ !(TVar Response)
, niSendContinue ∷ !(TMVar Bool)
, niWillChunkBody ∷ !Bool
- , niWillDiscardBody ∷ !(TVar Bool)
, niWillClose ∷ !(TVar Bool)
, niResponseHasCType ∷ !(TVar Bool)
-- FIXME: use TBChan Builder (in stm-chans package)
response ← newTVarIO $ emptyResponse arInitialStatus
sendContinue ← newEmptyTMVarIO
- willDiscardBody ← newTVarIO arWillDiscardBody
willClose ← newTVarIO arWillClose
responseHasCType ← newTVarIO False
bodyToSend ← newEmptyTMVarIO
, niResponse = response
, niSendContinue = sendContinue
, niWillChunkBody = arWillChunkBody
- , niWillDiscardBody = willDiscardBody
, niWillClose = willClose
, niResponseHasCType = responseHasCType
, niBodyToSend = bodyToSend