import qualified Data.ByteString.Lazy.Char8 as Lazy
import qualified Data.Collections as C
import Data.Monoid.Unicode
+import Network
import Network.HTTP.Lucu
import Prelude.Unicode
| otherwise = Nothing
in
do putStrLn "Access http://localhost:9999/ with your browser."
- runHttpd config mapper
+ withSocketsDo $ runHttpd config mapper
helloWorld ∷ Resource
helloWorld = C.fromList