]> gitweb @ CieloNegro.org - Lucu.git/blob - examples/Implanted.hs
Rename: Resource --> Rsrc; ResourceDef --> Resource
[Lucu.git] / examples / Implanted.hs
1 {-# LANGUAGE
2     UnicodeSyntax
3   #-}
4 import MiseRafturai
5 import Network.HTTP.Lucu
6
7 main ∷ IO ()
8 main = let config    = defaultConfig { cnfServerPort = "9999" }
9            resources = mkResTree [ ([], miseRafturai) ]
10        in
11          do putStrLn "Access http://localhost:9999/ with your browser."
12             runHttpd config resources []