→ IO SemanticallyInvalidInteraction
mkSemanticallyInvalidInteraction config@(Config {..}) (AugmentedRequest {..})
= do date ← getCurrentDate
→ IO SemanticallyInvalidInteraction
mkSemanticallyInvalidInteraction config@(Config {..}) (AugmentedRequest {..})
= do date ← getCurrentDate
, 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)