diff options
| author | Sergei Trofimovich <siarheit@google.com> | 2016-01-03 12:07:10 +0000 |
|---|---|---|
| committer | Sergei Trofimovich <siarheit@google.com> | 2016-02-09 17:10:26 +0000 |
| commit | 7953b27cdc331d97f605ae17f0c514f3e386023d (patch) | |
| tree | b76cf4addc0ea57019a2363265843ac55e9361df /compiler/main | |
| parent | 99cb627a45afacde5f86799671c53baf81daee41 (diff) | |
| download | haskell-7953b27cdc331d97f605ae17f0c514f3e386023d.tar.gz | |
DynFlags: drop tracking of '-#include' flags
GHC does not use passed paramaters anywhere
for this deprecated option.
Signed-off-by: Sergei Trofimovich <siarheit@google.com>
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/DynFlags.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 0fa74345fb..3cd72bf04e 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -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 |