[commit: ghc] master: oops, a Bool is a little *too* lax (#5878) (444e2fe)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/444e2fedb951a94a289d909b843f3281b9d2dc0a

>---------------------------------------------------------------

commit 444e2fedb951a94a289d909b843f3281b9d2dc0a
Author: Simon Marlow <marlowsd at gmail.com>
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