[project @ 2005-01-18 12:18:11 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcSplice.lhs

diff --git a/ghc/compiler/typecheck/TcSplice.lhs b/ghc/compiler/typecheck/TcSplice.lhs
index 982ac91..b51bfdc 100644 (file)
--- a/ghc/compiler/typecheck/TcSplice.lhs
+++ b/ghc/compiler/typecheck/TcSplice.lhs
@@ -510,8 +510,7 @@ tcLookupTh name
        { (eps,hpt) <- getEpsAndHpt
        ; case lookupType hpt (eps_PTE eps) name of 
            Just thing -> return (AGlobal thing)
-           Nothing    -> do { traceIf (text "tcLookupGlobal" <+> ppr name)
-                            ; thing <- initIfaceTcRn (tcImportDecl name)
+           Nothing    -> do { thing <- tcImportDecl name
                             ; return (AGlobal thing) }
                -- Imported names should always be findable; 
                -- if not, we fail hard in tcImportDecl