main :: IO ()
main = do
  opts <- cmdArgs defaultOptions
  cont <- getContents

  let parser  :: Parser Dep.Tree
      parser  = if stanfordDependencies opts then Dep.pDeps else Dep.pTree
      depTree = runParser "StdIn" parser cont
      conTree = Dep2Con.collins depTree

  case output opts of

   Default  -> print conTree
   ASCII    -> putStrLn (Con.asASCII conTree)
   Markdown -> putStrLn (Con.asMarkdown conTree)
main :: IO ()
main = do
  opts <- cmdArgs defaultOptions
  cont <- getContents

  let parser  :: Parser Dep.Tree
      parser  = if stanfordDependencies opts then Dep.pDeps else Dep.pTree
      depTree = runParser "StdIn" parser cont
      conTree = Dep2Con.collins depTree

  case output opts of

   Default  -> print conTree
   ASCII    -> putStrLn (Con.asASCII conTree)
   Markdown -> putStrLn (Con.asMarkdown conTree)
main = do
  opts <- cmdArgs defaultOptions
  cont <- getContents

  let parser  :: Parser Dep.Tree
      parser  = if stanfordDependencies opts then Dep.pDeps else Dep.pTree
      depTree = runParser "StdIn" parser cont
      conTree = Dep2Con.collins depTree

  case output opts of

   Default  -> print conTree
   ASCII    -> putStrLn (Con.asASCII conTree)
   Markdown -> putStrLn (Con.asMarkdown conTree)