, niWillDiscardBody ∷ !(TVar Bool)
, niWillClose ∷ !(TVar Bool)
, niResponseHasCType ∷ !(TVar Bool)
+ -- FIXME: use TBChan Builder (in stm-chans package)
, niBodyToSend ∷ !(TMVar Builder)
, niState ∷ !(TVar InteractionState)
mkInteractionQueue ∷ IO InteractionQueue
mkInteractionQueue = newTVarIO (∅)
-setResponseStatus ∷ NormalInteraction → StatusCode → STM ()
+-- FIXME: Response.hs should provide setStatus ∷ sc → Response → Response
+setResponseStatus ∷ StatusCode sc ⇒ NormalInteraction → sc → STM ()
setResponseStatus (NI {..}) sc
= do res ← readTVar niResponse
let res' = res {
- resStatus = sc
+ resStatus = fromStatusCode sc
}
writeTVar niResponse res'