--- 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 = fromStatusCode sc
- }
- writeTVar niResponse res'
-