diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-11-05 15:58:17 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-11-07 08:40:50 -0500 |
| commit | 55bc378721c66679d718f12655720be8d3425d67 (patch) | |
| tree | 6aacce1ae5bed6ea5b3a13d27a1734c5089234e5 | |
| parent | a424229da7cdf2ffca910ee0dd2af250f62ba5c3 (diff) | |
| download | haskell-55bc378721c66679d718f12655720be8d3425d67.tar.gz | |
FlagChecker: Add ticky flags to hashed flags
These affect output and therefore should be part of the flag hash.
| -rw-r--r-- | compiler/iface/FlagChecker.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/iface/FlagChecker.hs b/compiler/iface/FlagChecker.hs index 34b55e9fef..92caee658b 100644 --- a/compiler/iface/FlagChecker.hs +++ b/compiler/iface/FlagChecker.hs @@ -57,7 +57,11 @@ fingerprintDynFlags dflags@DynFlags{..} this_mod nameio = -- -fprof-auto etc. prof = if gopt Opt_SccProfilingOn dflags then fromEnum profAuto else 0 - flags = (mainis, safeHs, lang, cpp, paths, prof) + -- Ticky + ticky = + map (`gopt` dflags) [Opt_Ticky, Opt_Ticky_Allocd, Opt_Ticky_LNE, Opt_Ticky_Dyn_Thunk] + + flags = (mainis, safeHs, lang, cpp, paths, prof, ticky) in -- pprTrace "flags" (ppr flags) $ computeFingerprint nameio flags |