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
= do (h, host, _) <- accept so
tQueue <- newInteractionQueue
readerTID <- forkIO $ requestReader cnf table h host tQueue
- writerTID <- forkIO $ responseWriter h tQueue readerTID
+ writerTID <- forkIO $ responseWriter cnf h tQueue readerTID
loop so