, itrWillClose ∷ !(TVar Bool)
, itrBodyToSend ∷ !(TMVar Builder)
- , itrBodyIsNull ∷ !(TVar Bool)
+ , itrSentNoBody ∷ !(TVar Bool)
, itrState ∷ !(TVar InteractionState)
willClose ← newTVarIO False
bodyToSend ← newEmptyTMVarIO
- bodyIsNull ← newTVarIO True -- 一度でも bodyToSend が空でなくなったら False
+ sentNoBody ← newTVarIO True -- 一度でも bodyToSend が空でなくなったら False
state ← newTVarIO ExaminingRequest
, itrWillClose = willClose
, itrBodyToSend = bodyToSend
- , itrBodyIsNull = bodyIsNull
+ , itrSentNoBody = sentNoBody
, itrState = state