, itrExpectedContinue ∷ !(Maybe Bool)
, itrReqBodyLength ∷ !(Maybe RequestBodyLength)
- , itrReqBodyWanted ∷ !(TVar (Maybe Int))
+ , itrReqBodyWanted ∷ !(TVar Int)
, itrReqBodyWasteAll ∷ !(TVar Bool)
, itrReqChunkIsOver ∷ !(TVar Bool)
, itrReceivedBody ∷ !(TVar (Seq BS.ByteString))
, resHeaders = singleton "Content-Type" defaultPageContentType
}
- reqBodyWanted ← newTVarIO Nothing -- Resource が要求してゐるチャンク長
- reqBodyWasteAll ← newTVarIO False -- 殘りの body を讀み捨てよと云ふ要求
- reqChunkIsOver ← newTVarIO False -- 最後のチャンクを讀み終へた
+ reqBodyWanted ← newTVarIO 0
+ reqBodyWasteAll ← newTVarIO False
+ reqChunkIsOver ← newTVarIO False
receivedBody ← newTVarIO S.empty
receivedBodyLen ← newTVarIO 0