- itrConfig :: !Config
- , itrLocalPort :: !PortNumber
- , itrRemoteAddr :: !SockAddr
- , itrRemoteCert :: !(Maybe X509)
- , itrResourcePath :: !(Maybe [String])
- , itrRequest :: !(TVar (Maybe Request)) -- FIXME: TVar である必要無し
- , itrResponse :: !(TVar Response)
-
- , itrRequestHasBody :: !(TVar Bool) -- FIXME: TVar である必要無し
- , itrRequestIsChunked :: !(TVar Bool) -- FIXME: TVar である必要無し
- , itrExpectedContinue :: !(TVar Bool) -- FIXME: TVar である必要無し
-
- , itrReqChunkLength :: !(TVar (Maybe Int))
- , itrReqChunkRemaining :: !(TVar (Maybe Int))
- , itrReqChunkIsOver :: !(TVar Bool)
- , itrReqBodyWanted :: !(TVar (Maybe Int))
- , itrReqBodyWasteAll :: !(TVar Bool)
- , itrReceivedBody :: !(TVar Lazy.ByteString) -- Resource が受領した部分は削除される
-
- , itrWillReceiveBody :: !(TVar Bool)
- , itrWillChunkBody :: !(TVar Bool)
- , itrWillDiscardBody :: !(TVar Bool)
- , itrWillClose :: !(TVar Bool)
-
- , itrBodyToSend :: !(TVar Lazy.ByteString)
- , itrBodyIsNull :: !(TVar Bool)
-
- , itrState :: !(TVar InteractionState)
-
- , itrWroteContinue :: !(TVar Bool)
- , itrWroteHeader :: !(TVar Bool)
+ itrConfig ∷ !Config
+ , itrLocalPort ∷ !PortNumber
+ , itrRemoteAddr ∷ !SockAddr
+ , itrRemoteCert ∷ !(Maybe X509)
+ , itrResourcePath ∷ !(Maybe [Ascii])
+ , itrRequest ∷ !(TVar (Maybe Request))
+ , itrResponse ∷ !(TVar Response)
+
+ , itrRequestHasBody ∷ !(TVar Bool)
+ , itrRequestIsChunked ∷ !(TVar Bool)
+ , itrExpectedContinue ∷ !(TVar Bool)
+
+ , itrReqChunkLength ∷ !(TVar (Maybe Int))
+ , itrReqChunkRemaining ∷ !(TVar (Maybe Int))
+ , itrReqChunkIsOver ∷ !(TVar Bool)
+ , itrReqBodyWanted ∷ !(TVar (Maybe Int))
+ , itrReqBodyWasteAll ∷ !(TVar Bool)
+ , itrReceivedBody ∷ !(TVar (Seq BS.ByteString))
+ , itrReceivedBodyLen ∷ !(TVar Int)
+
+ , itrWillReceiveBody ∷ !(TVar Bool)
+ , itrWillChunkBody ∷ !(TVar Bool)
+ , itrWillDiscardBody ∷ !(TVar Bool)
+ , itrWillClose ∷ !(TVar Bool)
+
+ , itrBodyToSend ∷ !(TMVar Builder)
+ , itrBodyIsNull ∷ !(TVar Bool)
+
+ , itrState ∷ !(TVar InteractionState)
+
+ , itrWroteContinue ∷ !(TVar Bool)
+ , itrWroteHeader ∷ !(TVar Bool)