examples/Implanted.hs

   1 import MiseRafturai
   2 import Network
   3 import Network.HTTP.Lucu
   4
   5 main :: IO ()
   6 main = let config    = defaultConfig { cnfServerPort = PortNumber 9999 }
   7            resources = mkResTree [ ([], miseRafturai) ]
   8        in
   9          do putStrLn "Access http://localhost:9999/ with your browser."
  10             runHttpd config resources
  11