, InteractionQueue
, mkInteractionQueue
- , setResponseStatus
, getCurrentDate
)
where
mkInteractionQueue ∷ IO InteractionQueue
mkInteractionQueue = newTVarIO (∅)
--- 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'
-
getCurrentDate ∷ IO Ascii
getCurrentDate = HTTP.toAscii <$> getCurrentTime