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
-- 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