[project @ 2002-02-12 09:43:08 by simonmar]

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

diff --git a/ghc/compiler/typecheck/TcEnv.lhs b/ghc/compiler/typecheck/TcEnv.lhs
index d2b7ce4..c08e43b 100644 (file)
--- a/ghc/compiler/typecheck/TcEnv.lhs
+++ b/ghc/compiler/typecheck/TcEnv.lhs
@@ -33,7 +33,7 @@ module TcEnv(
        newLocalName, newDFunName,
 
        -- Misc
-       isLocalThing, isHomePackageThing, tcSetEnv
+       isLocalThing, tcSetEnv
   ) where
 
 #include "HsVersions.h"
@@ -45,16 +45,14 @@ import TcType               ( Type, ThetaType, TcKind, TcTyVar, TcTyVarSet,
                          tyVarsOfTypes, tcSplitDFunTy,
                          getDFunTyKey, tcTyConAppTyCon
                        )
-import Id              ( idName, isDataConWrapId_maybe )
-import IdInfo          ( vanillaIdInfo )
-import Var             ( TyVar, Id, idType, lazySetIdInfo, idInfo )
+import Id              ( isDataConWrapId_maybe )
+import Var             ( TyVar, Id, idType )
 import VarSet
 import DataCon         ( DataCon )
 import TyCon           ( TyCon )
 import Class           ( Class, ClassOpItem )
 import Name            ( Name, NamedThing(..), 
-                         getSrcLoc, mkLocalName, isLocalName, nameIsLocalOrFrom,
-                         isHomePackageName
+                         getSrcLoc, mkLocalName, isLocalName, nameIsLocalOrFrom
                        )
 import NameEnv         ( NameEnv, lookupNameEnv, nameEnvElts, elemNameEnv,
                          extendNameEnvList, emptyNameEnv, plusNameEnv )
@@ -254,9 +252,6 @@ newDFunName clas [] loc = pprPanic "newDFunName" (ppr clas <+> ppr loc)
 \begin{code}
 isLocalThing :: NamedThing a => Module -> a -> Bool
 isLocalThing mod thing = nameIsLocalOrFrom mod (getName thing)
-
-isHomePackageThing :: NamedThing a => a -> Bool
-isHomePackageThing thing = isHomePackageName (getName thing)
 \end{code}
 
 %************************************************************************