-- > }
--
-- 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
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