examples/HelloWorld.hs

   1 import Network
   2 import Network.HTTP.Lucu.Config
   3 import Network.HTTP.Lucu.Httpd
   4
   5 main :: IO ()
   6 main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }
   7            resources = mkResourceTable []
   8        in
   9          runHttpd config resources