X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=1e85ac43a5b6d10e34e737f92375a61c6cb7ae55;hp=cafb6b6692d2e50b60d7a48a895688b717f27070;hb=ef61cbbcbf819e7e5930b60de59fb5d550f66e83;hpb=302265d525004c7870864549f7a07a5759d32912

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index cafb6b6..1e85ac4 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -279,8 +279,10 @@ mkIface hsc_env maybe_old_iface
 
 		; decls  = [ tyThingToIfaceDecl ext_nm_rhs thing 
 			   | thing <- typeEnvElts type_env, 
-			     not (isImplicitName (getName thing)) ]
+			     let name = getName thing,
+			     not (isImplicitName name || isWiredInName name) ]
 		    	-- Don't put implicit Ids and class tycons in the interface file
+			-- Nor wired-in things; the compiler knows about them anyhow
 
 		; fixities    = [(occ,fix) | FixItem occ fix _ <- nameEnvElts fix_env]
 		; deprecs     = mkIfaceDeprec src_deprecs