X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=examples%2FHelloWorld.hs;fp=examples%2FHelloWorld.hs;h=43e21d2b5e039c89b58e0e973072c02041310dab;hb=854f6d1709d468f7e1bf0db2dcd2d30de6bd5f5e;hp=a2c6d50c02795a8959fb1c54c2b5a32d100ff95e;hpb=a44a96d95b5fcbaf24a21c0336046ce0c3bab614;p=Lucu.git diff --git a/examples/HelloWorld.hs b/examples/HelloWorld.hs index a2c6d50..43e21d2 100644 --- a/examples/HelloWorld.hs +++ b/examples/HelloWorld.hs @@ -20,8 +20,15 @@ main :: IO () main = let config = defaultConfig { cnfServerPort = PortNumber 9999 } resources = mkResTree [ ( [] , helloWorld ) - , ( ["compilers"] - , staticFile "/etc/compilers" ) + + , ( ["index.html"] + , staticFile "/Users/admin/Sites/index.html" ) + + , ( ["urandom"] + , staticFile "/dev/urandom" ) + + , ( ["inc"] + , staticDir "/usr/include" ) ] in do installHandler sigPIPE Ignore Nothing