-fno-code and no outputDir.

This commit is contained in:
Kazu Yamamoto
2010-04-29 12:39:48 +09:00
parent 8fd3c80a54
commit 2345765077
3 changed files with 5 additions and 53 deletions

View File

@@ -26,7 +26,6 @@ usage = "ghc-mod version 0.4.0\n"
defaultOptions :: Options
defaultOptions = Options { convert = toPlain
, ghcPkg = "ghc-pkg"
, outDir = outputDir
}
argspec :: [OptDescr (Options -> Options)]
@@ -36,9 +35,6 @@ 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])