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

[project @ 2002-01-18 07:02:59 by sof]
tcInstDecls1: partition up interface instances using isHomePackageThing rather than isLocalThing
---

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index f6e6a99..98a7075 100644
--- a/ghc/compiler/typecheck/TcInstDcls.lhs
+++ b/ghc/compiler/typecheck/TcInstDcls.lhs
@@ -33,7 +33,7 @@ import TcType		( mkClassPred, mkTyVarTy, mkTyVarTys, tcSplitForAllTys,
 import Inst		( InstOrigin(..), newDicts, instToId,
 			  LIE, mkLIE, emptyLIE, plusLIE, plusLIEs )
 import TcDeriv		( tcDeriving )
-import TcEnv		( TcEnv, tcExtendGlobalValEnv, isLocalThing,
+import TcEnv		( TcEnv, tcExtendGlobalValEnv, isHomePackageThing,
 			  tcExtendTyVarEnvForMeths, tcLookupId, tcLookupClass,
  			  InstInfo(..), pprInstInfo, simpleInstInfoTyCon, 
 			  simpleInstInfoTy, newDFunName
@@ -204,7 +204,7 @@ tcInstDecls1 inst_env0 prs hst unf_env get_fixity this_mod decls
 	-- manager.
     let
 	local_inst_info = catMaybes local_inst_infos
-	(local_iface_dfuns, pkg_iface_dfuns) = partition (isLocalThing this_mod) iface_dfuns
+	(local_iface_dfuns, pkg_iface_dfuns) = partition isHomePackageThing iface_dfuns
 	hst_dfuns       = foldModuleEnv ((++) . md_insts) [] hst
     in