[project @ 2004-06-22 11:03:42 by simonpj]

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

diff --git a/ghc/compiler/iface/IfaceEnv.lhs b/ghc/compiler/iface/IfaceEnv.lhs
index e987637..5cfc903 100644 (file)
--- a/ghc/compiler/iface/IfaceEnv.lhs
+++ b/ghc/compiler/iface/IfaceEnv.lhs
@@ -259,8 +259,7 @@ initOrigNames names = foldl extendOrigNameCache emptyModuleEnv names
 \begin{code}
 tcIfaceGlobal :: Name -> IfM a TyThing
 tcIfaceGlobal name
-  = do { eps <- getEps
-       ; hpt <- getHpt
+  = do { (eps,hpt) <- getEpsAndHpt
        ; case lookupType hpt (eps_PTE eps) name of {
            Just thing -> return thing ;
            Nothing    ->