import Control.Monad.Unicode
import Data.Maybe
import Data.Monoid.Unicode
+import Network
import Network.HTTP.Lucu
+import Prelude.Unicode
main ∷ IO ()
main = let config = defaultConfig { cnfServerPort = "9999" }
tree = C.fromList [ ([], nonGreedy resMain) ]
in
do putStrLn "Access http://localhost:9999/ with your browser."
- runHttpd config $ resourceMap tree
+ withSocketsDo ∘ runHttpd config $ resourceMap tree
resMain ∷ Resource
resMain = C.fromList