diff options
Diffstat (limited to 'compiler/main/DynFlags.hs')
| -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 |