X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHttpd.hs;h=6f4b34de7700b1b2103741b281c8a79722355665;hb=896da36ec761ae1c66a12350a91ca7c399ab6262;hp=a5f974978a4c6e5ccc4baad408d61bd5ce69f661;hpb=7bb9f322d85c1d7d8f23044a1be3b7e3b0ebe5b7;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs
index a5f9749..6f4b34d 100644
--- 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