Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/444e2fedb951a94a289d909b843f3281b9d2dc0a >--------------------------------------------------------------- commit 444e2fedb951a94a289d909b843f3281b9d2dc0a Author: Simon Marlow <[email protected]> Date: Thu Feb 16 10:52:31 2012 +0000 oops, a Bool is a little *too* lax (#5878) >--------------------------------------------------------------- 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 fecd001..9398b6c 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
