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
, niRequest ∷ !Request
, niResourcePath ∷ ![Strict.ByteString]
, niExpectedContinue ∷ !Bool
, niRequest ∷ !Request
, niResourcePath ∷ ![Strict.ByteString]
, niExpectedContinue ∷ !Bool
, 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
setResponseStatus ∷ StatusCode sc ⇒ NormalInteraction → sc → STM ()
setResponseStatus (NI {..}) sc
= do res ← readTVar niResponse
setResponseStatus ∷ StatusCode sc ⇒ NormalInteraction → sc → STM ()
setResponseStatus (NI {..}) sc
= do res ← readTVar niResponse