Using HLint API!.

This commit is contained in:
Kazu Yamamoto
2010-06-08 11:12:59 +09:00
parent 6e6e1c9ad7
commit 740ab2a054
4 changed files with 8 additions and 15 deletions

View File

@@ -31,16 +31,12 @@ usage = "ghc-mod version 0.4.1\n"
defaultOptions :: Options
defaultOptions = Options {
convert = toPlain
, hlint = "hlint"
}
argspec :: [OptDescr (Options -> Options)]
argspec = [ Option "l" ["tolisp"]
(NoArg (\opts -> opts { convert = toLisp }))
"print as a list of Lisp"
, Option "f" ["hlint"]
(ReqArg (\str opts -> opts { hlint = str }) "hlint")
"path to hlint"
]
parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String])