setOutPath :: String -> OptParser Opts
setOutPath p = success (\o -> o { outpath = p })
setOutPath :: String -> OptParser Opts
setOutPath p = success (\o -> o { outpath = p })
setOutPath p = success (\o -> o { outpath = p })