newLocalName, newDFunName,
-- Misc
- isLocalThing, isHomePackageThing, tcSetEnv
+ isLocalThing, tcSetEnv
) where
#include "HsVersions.h"
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 )
\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}
%************************************************************************