UnicodeSyntax
#-}
import qualified Data.Collections as C
+import Data.Default
import MiseRafturai
import Network
import Network.HTTP.Lucu
+import Prelude.Unicode
main ∷ IO ()
-main = let config = defaultConfig { cnfServerPort = "9999" }
+main = let config = def { cnfServerPort = "9999" }
tree ∷ ResourceTree
tree = C.fromList [ ([], nonGreedy miseRafturai) ]
in
do putStrLn "Access http://localhost:9999/ with your browser."
- withSocketsDo $ runHttpd config $ resourceMap tree
+ withSocketsDo ∘ runHttpd config $ resourceMap tree