output-dir.

This commit is contained in:
Kazu Yamamoto
2010-03-12 00:20:02 +09:00
parent 133086e1a8
commit fd04ebfe11
4 changed files with 38 additions and 8 deletions

View File

@@ -27,6 +27,7 @@ defaultOptions = Options { convert = toPlain
, ghc = "ghc"
, ghci = "ghci"
, ghcPkg = "ghc-pkg"
, outDir = "dist/flymake"
}
argspec :: [OptDescr (Options -> Options)]
@@ -42,6 +43,9 @@ argspec = [ Option ['l'] ["tolisp"]
, Option ['p'] ["ghc-pkg"]
(ReqArg (\str opts -> opts { ghcPkg = str }) "ghc-pkg")
"ghc-pkg path"
, Option ['o'] ["output-dir"]
(ReqArg (\str opts -> opts { outDir = str }) "dist/flymake")
"output directory"
]
parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String])