hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Expire unreferenced switches.

Browse Source
This commit is contained in:
HIBINO Kei 2011-11-14 19:28:34 +09:00
parent 748c57f0c1
commit 21c5072e37
2 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
GHCMod.hs
View File

@ -45,8 +45,6 @@ defaultOptions = Options {
, hlintOpts = [] , hlintOpts = []
, ghcOpts = [] , ghcOpts = []
, operators = False , operators = False
, packageConfs = []
, useUserPackageConf = True
} }
argspec :: [OptDescr (Options -> Options)] argspec :: [OptDescr (Options -> Options)]
@ -62,12 +60,6 @@ argspec = [ Option "l" ["tolisp"]
, Option "o" ["operators"] , Option "o" ["operators"]
(NoArg (\opts -> opts { operators = True })) (NoArg (\opts -> opts { operators = True }))
"print operators, too" "print operators, too"
, Option "" ["package-conf"]
(ReqArg (\p opts -> opts { packageConfs = p : packageConfs opts }) "path")
"additional package database"
, Option "" ["no-user-package-conf"]
(NoArg (\opts -> opts{ useUserPackageConf = False }))
"do not read the user package database"
] ]
parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String]) parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String])

2
Types.hs
View File

@ -15,8 +15,6 @@ data Options = Options {
, hlintOpts :: [String] , hlintOpts :: [String]
, ghcOpts :: [String] , ghcOpts :: [String]
, operators :: Bool , operators :: Bool
, packageConfs :: [FilePath]
, useUserPackageConf :: Bool
} }
withGHC :: (MonadPlus m) => Ghc (m a) -> IO (m a) withGHC :: (MonadPlus m) => Ghc (m a) -> IO (m a)