From 444e2fedb951a94a289d909b843f3281b9d2dc0a Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 16 Feb 2012 10:52:31 +0000
Subject: oops, a Bool is a little *too* lax (#5878)

---
 compiler/iface/FlagChecker.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'compiler/iface/FlagChecker.hs')

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
-- 
cgit v1.2.1