import Data.List import Data.Maybe import Network import Network.HTTP.Lucu main :: IO () main = let config = defaultConfig { cnfServerPort = PortNumber 9999 } resources = mkResTree [ ([], resMain) ] in do putStrLn "Access http://localhost:9999/ with your browser." runHttpd config resources [] resMain :: ResourceDef resMain = ResourceDef { resUsesNativeThread = False , resIsGreedy = False , resGet = Just $ do setContentType $ read "text/html" output ("