main :: IO ()
main =
  do  allArgs <- Env.getArgs
      case allArgs of
        [pkg] ->
          do  fixAllDocs pkg
              fixModuleDocs pkg

        _ ->
          do  hPutStrLn stderr "Expecting a path to a particular version of a package"
              exitFailure


-- FIX documentation.json
main :: IO ()
main =
  do  allArgs <- Env.getArgs
      case allArgs of
        [pkg] ->
          do  fixAllDocs pkg
              fixModuleDocs pkg

        _ ->
          do  hPutStrLn stderr "Expecting a path to a particular version of a package"
              exitFailure


-- FIX documentation.json
main =
  do  allArgs <- Env.getArgs
      case allArgs of
        [pkg] ->
          do  fixAllDocs pkg
              fixModuleDocs pkg

        _ ->
          do  hPutStrLn stderr "Expecting a path to a particular version of a package"
              exitFailure


-- FIX documentation.json