X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHttpd.hs;h=e1abcab63d8fc5344262f3cde0f14eec136347b8;hp=03fde6b714fde24a307005202ddb5564bd611a56;hb=01fe22bec14421e3b9430efbfc9daee05f181730;hpb=761b90ab4f413d2e83460f170082f3b15bbaef4f diff --git a/Network/HTTP/Lucu/Httpd.hs b/Network/HTTP/Lucu/Httpd.hs index 03fde6b..e1abcab 100644 --- a/Network/HTTP/Lucu/Httpd.hs +++ b/Network/HTTP/Lucu/Httpd.hs @@ -46,6 +46,7 @@ import Prelude.Unicode -- > = Just $ do setContentType [mimeType| text/plain |] -- > putChunk "Hello, world!" -- > } +-- -- FIXME: update the above example runHttpd ∷ Config → SchemeMap → IO () runHttpd cnf sm