mkInteractionQueue ∷ IO InteractionQueue
mkInteractionQueue = newTVarIO (∅)
-setResponseStatus ∷ NormalInteraction → StatusCode → STM ()
+setResponseStatus ∷ StatusCode sc ⇒ NormalInteraction → sc → STM ()
setResponseStatus (NI {..}) sc
= do res ← readTVar niResponse
let res' = res {
- resStatus = sc
+ resStatus = fromStatusCode sc
}
writeTVar niResponse res'