working on Router arrow

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

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index a5f974978a4c6e5ccc4baad408d61bd5ce69f661..6f4b34de7700b1b2103741b281c8a79722355665 100644 (file)
--- a/Network/HTTP/Lucu/Httpd.hs
+++ b/Network/HTTP/Lucu/Httpd.hs
@@ -50,6 +50,7 @@ import Prelude.Unicode
 --                       'Network.HTTP.Lucu.putChunk' \"Hello, world!\"
 --                }
 -- @
+-- FIXME: use monad-parallel's MonadFork instead of IO.
 runHttpd ∷ HostMapper α ⇒ Config → α → IO ()
 runHttpd cnf hm
     = do let launchers