diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-11-05 15:58:17 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-11-05 16:01:07 -0500 |
| commit | 96e38e64682e78e4f9a9e98408eff2dc52a1cfd8 (patch) | |
| tree | 2ae409d8ec7fad9593273900d5ed4e68cb97075b | |
| parent | 120f2e5343d5ccd3ad117d530018b75302c6482b (diff) | |
| download | haskell-wip/ticky-flags.tar.gz | |
FlagChecker: Add ticky flags to hashed flagswip/ticky-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 |