import Network
import Network.HTTP.Lucu.Config
import Network.HTTP.Lucu.Httpd
import Network.HTTP.Lucu.Resource
import System.Posix.Signals

main :: IO ()
main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }
           resources = mkResTree []
       in
         do installHandler sigPIPE Ignore Nothing
            runHttpd config resources