import Network.HTTP.Lucu.Interaction
import Network.HTTP.Lucu.RequestReader
import Network.HTTP.Lucu.Resource
+import Network.HTTP.Lucu.Resource.Tree
import Network.HTTP.Lucu.ResponseWriter
import System.IO
loop so
= do (h, host, _) <- accept so
tQueue <- newInteractionQueue
- forkIO $ requestReader cnf table h host tQueue
- forkIO $ responseWriter h tQueue
+ readerTID <- forkIO $ requestReader cnf table h host tQueue
+ writerTID <- forkIO $ responseWriter cnf h tQueue readerTID
loop so