- = do (h, host, port) <- accept so
- forkIO $ service h host port
+ = do (h, host, _) <- accept so
+ tQueue <- newInteractionQueue
+ readerTID <- forkIO $ requestReader cnf table h host tQueue
+ writerTID <- forkIO $ responseWriter h tQueue readerTID