+{-# LANGUAGE
+ UnicodeSyntax
+ #-}
import MiseRafturai
import Network.HTTP.Lucu
-main :: IO ()
+main ∷ IO ()
main = let config = defaultConfig { cnfServerPort = "9999" }
resources = mkResTree [ ([], miseRafturai) ]
in
do putStrLn "Access http://localhost:9999/ with your browser."
runHttpd config resources []
-
\ No newline at end of file