projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-08-16 09:53:47 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
typecheck
/
Inst.lhs
diff --git
a/ghc/compiler/typecheck/Inst.lhs
b/ghc/compiler/typecheck/Inst.lhs
index
ae64ae1
..
c8a50d0
100644
(file)
--- a/
ghc/compiler/typecheck/Inst.lhs
+++ b/
ghc/compiler/typecheck/Inst.lhs
@@
-766,10
+766,10
@@
record_dfun_usage dfun_id
dfun_name = idName dfun_id
tcGetInstEnvs :: TcM (InstEnv, InstEnv)
dfun_name = idName dfun_id
tcGetInstEnvs :: TcM (InstEnv, InstEnv)
--- Gets both the home-pkg inst env (includes module being compiled)
--- and the external-package inst-env
+-- Gets both the external-package inst-env
+-- and the home-pkg inst env (includes module being compiled)
tcGetInstEnvs = do { eps <- getEps; env <- getGblEnv;
tcGetInstEnvs = do { eps <- getEps; env <- getGblEnv;
- return (tcg_inst_env env, eps_inst_env eps) }
+ return (eps_inst_env eps, tcg_inst_env env) }
\end{code}
\end{code}