diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-16 19:48:18 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-16 19:48:18 +0100 |
| commit | 5d0fce85fd5c885343196142b15b8a8d2928d3fe (patch) | |
| tree | a460a2ef476741dcfe1518632840f703a71d8542 /compiler/iface/FlagChecker.hs | |
| parent | d6c1311a30471eb252db321c6151214ad1eb1fbb (diff) | |
| download | haskell-5d0fce85fd5c885343196142b15b8a8d2928d3fe.tar.gz | |
Make a picPOpts function
We now handle the preprocessor options the same way as the gcc options
(picCCOpts).
Diffstat (limited to 'compiler/iface/FlagChecker.hs')
| -rw-r--r-- | compiler/iface/FlagChecker.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/FlagChecker.hs b/compiler/iface/FlagChecker.hs index 0365be7338..60b1fb6bfb 100644 --- a/compiler/iface/FlagChecker.hs +++ b/compiler/iface/FlagChecker.hs @@ -25,7 +25,7 @@ import System.FilePath (normalise) fingerprintDynFlags :: DynFlags -> Module -> (BinHandle -> Name -> IO ()) -> IO Fingerprint -fingerprintDynFlags DynFlags{..} this_mod nameio = +fingerprintDynFlags dflags@DynFlags{..} this_mod nameio = let mainis = if mainModIs == this_mod then Just mainFunIs else Nothing -- see #5878 -- pkgopts = (thisPackage dflags, sort $ packageFlags dflags) @@ -37,7 +37,7 @@ fingerprintDynFlags DynFlags{..} this_mod nameio = IntSet.toList $ extensionFlags) -- -I, -D and -U flags affect CPP - cpp = (map normalise includePaths, sOpt_P settings) + cpp = (map normalise includePaths, opt_P dflags ++ picPOpts) -- normalise: eliminate spurious differences due to "./foo" vs "foo" -- Note [path flags and recompilation] |