X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=21a216888010ac647d2b6ca6c4f43a868a7116dc;hb=5a763550bf31ce446812d89f4967b601f122d344;hp=54ec9e641ef5944d4207a573c5153c85980e48c8;hpb=772e0d3f0cf19d52b199e61afc8bbf2ee4c5281f;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index 54ec9e6..21a2168 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -595,6 +595,7 @@ data ImportDeclResult
 importDecl name
   = 	-- STEP 1: Check if we've slurped it in while compiling this module
     getIfacesRn				`thenRn` \ ifaces ->
+    traceRn (text "Wanting:" <+> ppr name)	`thenRn_`
     if name `elemNameSet` iSlurp ifaces then	
 	returnRn AlreadySlurped	
     else
@@ -625,7 +626,8 @@ importDecl name
     in
     case lookupNameEnv decls_map name of
       Just (avail,_,decl)
-	-> setIfacesRn (recordSlurp ifaces avail)	`thenRn_`
+	-> traceRn (text "Record slurp" <+> ppr avail)	`thenRn_`
+    	   setIfacesRn (recordSlurp ifaces avail)	`thenRn_`
 	   returnRn (HereItIs decl)
 
       Nothing