From a8176b20a96ec219f0eb4269f908efbd5f5d9902 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 18 Jan 2002 07:02:59 +0000 Subject: [PATCH] [project @ 2002-01-18 07:02:59 by sof] tcInstDecls1: partition up interface instances using isHomePackageThing rather than isLocalThing --- ghc/compiler/typecheck/TcInstDcls.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4