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 a49a81d4107d21d7f110b774e89a16ebc23cc9ee..7b0a565f2b1bc08ea56a93f40e7bc4c643c66a02 100644 (file)
--- 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