examples/Implanted.hs

   1 {-# LANGUAGE
   2     UnicodeSyntax
   3   #-}
   4 import qualified Data.Collections as C
   5 import Data.Default
   6 import MiseRafturai
   7 import Network
   8 import Network.HTTP.Lucu
   9 import Prelude.Unicode
  10
  11 main ∷ IO ()
  12 main = let config = def { cnfServerPort = "9999" }
  13            tree   ∷ ResourceTree
  14            tree   = C.fromList [ ([], nonGreedy miseRafturai) ]
  15        in
  16          do putStrLn "Access http://localhost:9999/ with your browser."
  17             withSocketsDo ∘ runHttpd config $ resourceMap tree