diff --git a/GHCMod.hs b/GHCMod.hs index 567d47d..2ab156f 100644 --- a/GHCMod.hs +++ b/GHCMod.hs @@ -45,8 +45,6 @@ defaultOptions = Options { , hlintOpts = [] , ghcOpts = [] , operators = False - , packageConfs = [] - , useUserPackageConf = True } argspec :: [OptDescr (Options -> Options)] @@ -62,12 +60,6 @@ argspec = [ Option "l" ["tolisp"] , Option "o" ["operators"] (NoArg (\opts -> opts { operators = True })) "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]) diff --git a/Types.hs b/Types.hs index 5fbe6ed..301ff36 100644 --- a/Types.hs +++ b/Types.hs @@ -15,8 +15,6 @@ data Options = Options { , hlintOpts :: [String] , ghcOpts :: [String] , operators :: Bool - , packageConfs :: [FilePath] - , useUserPackageConf :: Bool } withGHC :: (MonadPlus m) => Ghc (m a) -> IO (m a)