examples/ImplantedSmall.hs

   1 {-# LANGUAGE
   2     UnicodeSyntax
   3   #-}
   4 import qualified Data.Collections as C
   5 import Network.HTTP.Lucu
   6 import SmallFile
   7
   8 main ∷ IO ()
   9 main = let config = defaultConfig { cnfServerPort = "9999" }
  10            tree   ∷ ResourceTree
  11            tree   = C.fromList [ ([], nonGreedy smallFile) ]
  12        in
  13          do putStrLn "Access http://localhost:9999/ with your browser."
  14             runHttpd config $ resourceMap tree