diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-02-16 10:52:31 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-02-16 10:52:31 +0000 |
| commit | 444e2fedb951a94a289d909b843f3281b9d2dc0a (patch) | |
| tree | b5a42c4ac05ecb12f2ea29c271780975ede50d08 /compiler/iface/FlagChecker.hs | |
| parent | 95d2e12cbee185dd78a66e4cd44d6915519f1fa9 (diff) | |
| download | haskell-444e2fedb951a94a289d909b843f3281b9d2dc0a.tar.gz | |
oops, a Bool is a little *too* lax (#5878)
Diffstat (limited to 'compiler/iface/FlagChecker.hs')
| -rw-r--r-- | compiler/iface/FlagChecker.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/iface/FlagChecker.hs b/compiler/iface/FlagChecker.hs index fecd001238..9398b6c6cb 100644 --- a/compiler/iface/FlagChecker.hs +++ b/compiler/iface/FlagChecker.hs @@ -26,7 +26,8 @@ fingerprintDynFlags :: DynFlags -> Module -> (BinHandle -> Name -> IO ()) -> IO Fingerprint fingerprintDynFlags DynFlags{..} this_mod nameio = - let mainis = mainModIs == this_mod -- see #5878 + let mainis = if mainModIs == this_mod then Just mainFunIs else Nothing + -- see #5878 -- pkgopts = (thisPackage dflags, sort $ packageFlags dflags) safeHs = setSafeMode safeHaskell -- oflags = sort $ filter filterOFlags $ flags dflags |