data/mime.types

[Lucu.git] / Network / HTTP / Lucu / Httpd.hs

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 8fc36ac3c50b24500a1f1f6f824c9bd866321863..2be87368b4b436d2d16c8e0c43b044b69ecdda67 100644 (file)
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -12,6 +12,7 @@ import           Network.HTTP.Lucu.Config
 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
 
@@ -26,6 +27,6 @@ runHttpd cnf table
       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