From: sof <unknown>
Date: Fri, 18 Jan 2002 06:44:33 +0000 (+0000)
Subject: [project @ 2002-01-18 06:44:33 by sof]
X-Git-Tag: Approximately_9120_patches~283
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c8f079e2798f40548f6012fe8be7c29a3b499f8;p=ghc-hetmet.git

[project @ 2002-01-18 06:44:33 by sof]
added isHomePackageThing :: NamedThing a => a -> Bool
---

diff --git a/ghc/compiler/typecheck/TcEnv.lhs b/ghc/compiler/typecheck/TcEnv.lhs
index 744fb42..d2b7ce4 100644
--- a/ghc/compiler/typecheck/TcEnv.lhs
+++ b/ghc/compiler/typecheck/TcEnv.lhs
@@ -33,7 +33,7 @@ module TcEnv(
 	newLocalName, newDFunName,
 
 	-- Misc
-	isLocalThing, tcSetEnv
+	isLocalThing, isHomePackageThing, tcSetEnv
   ) where
 
 #include "HsVersions.h"
@@ -53,7 +53,8 @@ import DataCon		( DataCon )
 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 )
@@ -253,6 +254,9 @@ 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}
 
 %************************************************************************