Commit 96b7249d authored by simonpj's avatar simonpj
Browse files

[project @ 2003-01-13 13:22:58 by simonpj]

parent 90bf3139
......@@ -189,6 +189,12 @@ defaultDefaultTys :: [Type]
defaultDefaultTys = [integerTy, doubleTy]
mkImpInstEnv :: DynFlags -> ExternalPackageState -> HomePackageTable -> InstEnv
-- At the moment we (wrongly) build an instance environment from all the
-- modules we have already compiled:
-- (a) eps_inst_env from the external package state
-- (b) all the md_insts in the home package table
-- We should really only get instances from modules below us in the
-- module import tree.
mkImpInstEnv dflags eps hpt
= foldModuleEnv (add . md_insts . hm_details)
(eps_inst_env eps)
Supports Markdown
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