ETag and Last Modified

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

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 8fc36ac3c50b24500a1f1f6f824c9bd866321863..7b0a565f2b1bc08ea56a93f40e7bc4c643c66a02 100644 (file)
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -26,6 +26,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