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