[project @ 2005-11-02 17:39:57 by simonpj]

[ghc-hetmet.git] / ghc / compiler / iface / TcIface.lhs

diff --git a/ghc/compiler/iface/TcIface.lhs b/ghc/compiler/iface/TcIface.lhs
index 9feeda6..e10958b 100644 (file)
--- 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