X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHttpd.hs;h=7b0a565f2b1bc08ea56a93f40e7bc4c643c66a02;hb=1000bdc46cfe7b3ae550ff24ccea9f440f11b42a;hp=a49a81d4107d21d7f110b774e89a16ebc23cc9ee;hpb=1e48e402adec79653203dc19a1800efa7b1c467b;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index a49a81d..7b0a565 100644
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -27,5 +27,5 @@ runHttpd cnf table
           = 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