main :: IO ()
main = do
  args <- getArgs
  let p = if length args == 0 then 8000 else read $ head args

  simpleHTTP (nullConf {port = p, logAccess = Nothing}) handlers
main :: IO ()
main = do
  args <- getArgs
  let p = if length args == 0 then 8000 else read $ head args

  simpleHTTP (nullConf {port = p, logAccess = Nothing}) handlers
main = do
  args <- getArgs
  let p = if length args == 0 then 8000 else read $ head args

  simpleHTTP (nullConf {port = p, logAccess = Nothing}) handlers