X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=examples%2FImplantedSmall.hs;h=f7e8856d6b350ab31320e94315e51059a930e2e7;hb=9be2b946657c536a4363a076235f70728be087c4;hp=1a652111237fba6fa022ed50af437a3a29a80355;hpb=ea8f823ffa1004582d403c69f52a83e20486269f;p=Lucu.git diff --git a/examples/ImplantedSmall.hs b/examples/ImplantedSmall.hs index 1a65211..f7e8856 100644 --- a/examples/ImplantedSmall.hs +++ b/examples/ImplantedSmall.hs @@ -1,11 +1,14 @@ -import Network +{-# LANGUAGE + UnicodeSyntax + #-} +import qualified Data.Collections as C import Network.HTTP.Lucu import SmallFile -main :: IO () -main = let config = defaultConfig { cnfServerPort = PortNumber 9999 } - resources = mkResTree [ ([], smallFile) ] +main ∷ IO () +main = let config = defaultConfig { cnfServerPort = "9999" } + tree ∷ ResourceTree + tree = C.fromList [ ([], nonGreedy smallFile) ] in do putStrLn "Access http://localhost:9999/ with your browser." - runHttpd config resources - \ No newline at end of file + runHttpd config $ resourceMap tree