Commit a8176b20 authored by sof's avatar sof
Browse files

[project @ 2002-01-18 07:02:59 by sof]

tcInstDecls1: partition up interface instances using isHomePackageThing rather than isLocalThing
parent 9c8f079e
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment