+{-# LANGUAGE
+ UnicodeSyntax
+ #-}
import MiseRafturai
-import Network
import Network.HTTP.Lucu
-main :: IO ()
-main = let config = defaultConfig { cnfServerPort = PortNumber 9999 }
+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
+ runHttpd config resources []