DynFlags: drop tracking of '-#include' flags
authorSergei Trofimovich <siarheit@google.com>
Sun, 3 Jan 2016 12:07:10 +0000 (12:07 +0000)
committerSergei Trofimovich <siarheit@google.com>
Tue, 9 Feb 2016 17:10:26 +0000 (17:10 +0000)
GHC does not use passed paramaters anywhere
for this deprecated option.

Signed-off-by: Sergei Trofimovich <siarheit@google.com>
compiler/main/DynFlags.hs

index 0fa7434..3cd72bf 100644 (file)
@@ -665,7 +665,6 @@ data DynFlags = DynFlags {
 
   historySize           :: Int,
 
-  cmdlineHcIncludes     :: [String],    -- ^ @\-\#includes@
   importPaths           :: [FilePath],
   mainModIs             :: Module,
   mainFunIs             :: Maybe String,
@@ -1453,7 +1452,6 @@ defaultDynFlags mySettings =
         enableTimeStats         = False,
         ghcHeapSize             = Nothing,
 
-        cmdlineHcIncludes       = [],
         importPaths             = ["."],
         mainModIs               = mAIN,
         mainFunIs               = Nothing,
@@ -2247,8 +2245,7 @@ dynamic_flags = [
   , defFlag "cpp"      (NoArg (setExtensionFlag LangExt.Cpp))
   , defFlag "F"        (NoArg (setGeneralFlag Opt_Pp))
   , defFlag "#include"
-      (HasArg (\s -> do
-         addCmdlineHCInclude s
+      (HasArg (\_s -> do
          addWarn ("-#include and INCLUDE pragmas are " ++
                   "deprecated: They no longer have any effect")))
   , defFlag "v"        (OptIntSuffix setVerbosity)
@@ -3856,9 +3853,6 @@ setVerbosity mb_n = upd (\dfs -> dfs{ verbosity = mb_n `orElse` 3 })
 setDebugLevel :: Maybe Int -> DynP ()
 setDebugLevel mb_n = upd (\dfs -> dfs{ debugLevel = mb_n `orElse` 2 })
 
-addCmdlineHCInclude :: String -> DynP ()
-addCmdlineHCInclude a = upd (\s -> s{cmdlineHcIncludes =  a : cmdlineHcIncludes s})
-
 data PkgConfRef
   = GlobalPkgConf
   | UserPkgConf