examples/ImplantedSmall.hs

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