import qualified Data.ByteString as Strict
import Data.Monoid.Unicode
import Data.Sequence (Seq)
import qualified Data.ByteString as Strict
import Data.Monoid.Unicode
import Data.Sequence (Seq)
import Network.HTTP.Lucu.Preprocess
import Network.HTTP.Lucu.Request
import Network.HTTP.Lucu.Response
import Network.HTTP.Lucu.Preprocess
import Network.HTTP.Lucu.Request
import Network.HTTP.Lucu.Response
, seiResponse ∷ !Response
, seiWillChunkBody ∷ !Bool
, seiResponse ∷ !Response
, seiWillChunkBody ∷ !Bool
, niRequest ∷ !Request
, niResourcePath ∷ ![Strict.ByteString]
, niExpectedContinue ∷ !Bool
, niRequest ∷ !Request
, niResourcePath ∷ ![Strict.ByteString]
, niExpectedContinue ∷ !Bool
, niReceiveBodyReq ∷ !(TMVar ReceiveBodyRequest)
, niReceivedBody ∷ !(TMVar Strict.ByteString)
, niReceiveBodyReq ∷ !(TMVar ReceiveBodyRequest)
, niReceivedBody ∷ !(TMVar Strict.ByteString)
, niWillDiscardBody ∷ !(TVar Bool)
, niWillClose ∷ !(TVar Bool)
, niResponseHasCType ∷ !(TVar Bool)
, niWillDiscardBody ∷ !(TVar Bool)
, niWillClose ∷ !(TVar Bool)
, niResponseHasCType ∷ !(TVar Bool)
, niBodyToSend ∷ !(TMVar Builder)
, niState ∷ !(TVar InteractionState)
, niBodyToSend ∷ !(TMVar Builder)
, niState ∷ !(TVar InteractionState)
, niRequest = arRequest
, niResourcePath = rsrcPath
, niExpectedContinue = arExpectedContinue
, niRequest = arRequest
, niResourcePath = rsrcPath
, niExpectedContinue = arExpectedContinue