[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 (file)
--- 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