- , itrWillChunkBody :: TVar Bool
- , itrWillDiscardBody :: TVar Bool
- , itrWillClose :: TVar Bool
- , itrBodyToSend :: TVar ByteString
+ , itrReqChunkLength :: TVar (Maybe Int)
+ , itrReqChunkRemaining :: TVar (Maybe Int)
+ , itrReqChunkIsOver :: TVar Bool
+ , itrReqBodyWanted :: TVar (Maybe Int)
+ , itrReqBodyWasteAll :: TVar Bool
+ , itrReceivedBody :: TVar ByteString -- Resource が受領した部分は削除される
+
+ , itrWillReceiveBody :: TVar Bool
+ , itrWillChunkBody :: TVar Bool
+ , itrWillDiscardBody :: TVar Bool
+ , itrWillClose :: TVar Bool
+
+ , itrBodyToSend :: TVar ByteString
+ , itrBodyIsNull :: TVar Bool