examples/Implanted.hs

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