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 import System.Posix.Signals
   6
   7 main :: IO ()
   8 main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }
   9            resources = mkResTree []
  10        in
  11          do installHandler sigPIPE Ignore Nothing
  12             runHttpd config resources