examples/HelloWorld.hs

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