X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fiface%2FTcIface.lhs;h=e10958b0d06507f4b8b85a3bd5586906187e5d4c;hb=acc7346eb5d6e6000b3a4b0e2f7ea00933dff2a4;hp=9feeda669c95c1f270fc2ab283be6449bc4503ae;hpb=709d58c007338466175021829aa59cf34b569033;p=ghc-hetmet.git

diff --git a/ghc/compiler/iface/TcIface.lhs b/ghc/compiler/iface/TcIface.lhs
index 9feeda6..e10958b 100644
--- a/ghc/compiler/iface/TcIface.lhs
+++ b/ghc/compiler/iface/TcIface.lhs
@@ -114,7 +114,7 @@ tcImportDecl name
   = do	{ initIfaceTcRn (loadWiredInHomeIface name) 
 	; return thing }
   | otherwise
-  = do 	{ traceIf (text "tcLookupGlobal" <+> ppr name)
+  = do 	{ traceIf (text "tcImportDecl" <+> ppr name)
 	; mb_thing <- initIfaceTcRn (importDecl name)
 	; case mb_thing of
 	    Succeeded thing -> return thing