From 21c5072e37c0343c3631e62cd193833bf2dabb5e Mon Sep 17 00:00:00 2001
From: HIBINO Kei <hibi@utmc.or.jp>
Date: Mon, 14 Nov 2011 19:28:34 +0900
Subject: [PATCH] Expire unreferenced switches.

---
 GHCMod.hs | 8 --------
 Types.hs  | 2 --
 2 files changed, 10 deletions(-)

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)