import qualified Data.ByteString.Lazy.Char8 as L8
import Data.List
import Data.Maybe
-import Network
import Network.HTTP.Lucu
main :: IO ()
-main = let config = defaultConfig { cnfServerPort = PortNumber 9999 }
+main = let config = defaultConfig { cnfServerPort = "9999" }
resources = mkResTree [ ([], resMain) ]
in
do putStrLn "Access http://localhost:9999/ with your browser."