X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=1521069001d05bd8bb14d8ea61ff8d4ce22f5a62;hb=c4ea1371c0683bbd6e6c78d73435de369bb6c468;hp=f972a91f3d8c6182acf2a15e68767842598f8159;hpb=0cdde9d7cdad657a1d0841b39410774801c69556;p=ghc-hetmet.git

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index f972a91..1521069 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -708,6 +708,8 @@ computeChangedOccs ver_fn this_module old_usages eq_info
     -- return True if an external name has changed
     name_changed :: Name -> Bool
     name_changed nm
+	| isWiredInName nm	-- Wired-in things don't get into interface
+	= False			-- files and hence don't get into the ver_fn
         | Just ents <- lookupUFM usg_modmap (moduleName mod),
           Just v    <- lookupUFM ents parent_occ
         = v < new_version