import Control.Concurrent.STM
import Data.Ascii (Ascii)
import qualified Data.ByteString as BS
import Data.Sequence (Seq)
import qualified Data.Sequence as S
import Control.Concurrent.STM
import Data.Ascii (Ascii)
import qualified Data.ByteString as BS
import Data.Sequence (Seq)
import qualified Data.Sequence as S
, itrLocalPort ∷ !PortNumber
, itrRemoteAddr ∷ !SockAddr
, itrRemoteCert ∷ !(Maybe X509)
, itrLocalPort ∷ !PortNumber
, itrRemoteAddr ∷ !SockAddr
, itrRemoteCert ∷ !(Maybe X509)
, itrRequest ∷ !(TVar (Maybe Request))
, itrResponse ∷ !(TVar Response)
, itrRequest ∷ !(TVar (Maybe Request))
, itrResponse ∷ !(TVar Response)
, itrWillClose ∷ !(TVar Bool)
, itrBodyToSend ∷ !(TMVar Builder)
, itrWillClose ∷ !(TVar Bool)
, itrBodyToSend ∷ !(TMVar Builder)
, itrWillClose = willClose
, itrBodyToSend = bodyToSend
, itrWillClose = willClose
, itrBodyToSend = bodyToSend