examples/ImplantedSmall.hs

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