newLocalName, newDFunName,
-- Misc
- isLocalThing, tcSetEnv
+ isLocalThing, isHomePackageThing, tcSetEnv
) where
#include "HsVersions.h"
import TyCon ( TyCon )
import Class ( Class, ClassOpItem )
import Name ( Name, NamedThing(..),
- getSrcLoc, mkLocalName, isLocalName, nameIsLocalOrFrom
+ getSrcLoc, mkLocalName, isLocalName, nameIsLocalOrFrom,
+ isHomePackageName
)
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}
%************************************************************************