Yay! Deadlock problem has finally been solved!

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

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index 8fc36ac3c50b24500a1f1f6f824c9bd866321863..a49a81d4107d21d7f110b774e89a16ebc23cc9ee 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 h tQueue readerTID
                loop so