examples/ImplantedSmall.hs

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