+-- #hide
module Network.HTTP.Lucu.ResponseWriter
- ( responseWriter -- Config -> Handle -> InteractionQueue -> IO ()
+ ( responseWriter
)
where
import Control.Concurrent
import Debug.Trace
+import GHC.Conc (unsafeIOToSTM)
responseWriter :: Config -> Handle -> InteractionQueue -> ThreadId -> IO ()