Scrap SchemeMapper

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

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index e1abcab63d8fc5344262f3cde0f14eec136347b8..fb87d820f13f42a665c1b4a86cc99f6678fdaed4 100644 (file)
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -48,8 +48,8 @@ import Prelude.Unicode
 -- >              }
 --
 -- FIXME: update the above example
-runHttpd ∷ Config → SchemeMap → IO ()
-runHttpd cnf sm
+runHttpd ∷ Config → HostMap → IO ()
+runHttpd cnf hm
     = do let launchers
                  = catMaybes
                    [ do addr ← cnfServerV4Addr cnf
@@ -108,7 +108,7 @@ runHttpd cnf sm
       httpLoop port so
           = do (h, addr)  ← SL.accept so
                tQueue     ← mkInteractionQueue
-               readerTID  ← forkIO $ requestReader cnf sm h port addr tQueue
+               readerTID  ← forkIO $ requestReader cnf hm h port addr tQueue
                _writerTID ← forkIO $ responseWriter cnf h tQueue readerTID
                httpLoop port so