X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=examples%2FHelloWorld.hs;h=d5b8d701318b5a5bccb7e7e275a3fab108c29733;hp=52ceceb14f34b937951288940a5b962502769335;hb=3c7a58ab749a55a30466a033b170536bcdf18b98;hpb=9961a721f98b101825ef154a2122c1fc2fa6d1ac diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs index 52ceceb..d5b8d70 100644 --- a/examples/HelloWorld.hs +++ b/examples/HelloWorld.hs @@ -1,9 +1,10 @@ import Network import Network.HTTP.Lucu.Config import Network.HTTP.Lucu.Httpd +import Network.HTTP.Lucu.Resource main :: IO () main = let config = defaultConfig { cnfServerPort = PortNumber 9999 } - resources = mkResourceTable [] + resources = mkResTree [] in runHttpd config resources \ No newline at end of file