projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2ec5498
)
[project @ 2005-01-27 15:53:38 by simonpj]
author
simonpj
<unknown>
Thu, 27 Jan 2005 15:53:38 +0000
(15:53 +0000)
committer
simonpj
<unknown>
Thu, 27 Jan 2005 15:53:38 +0000
(15:53 +0000)
Comments
ghc/compiler/iface/TcIface.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/iface/TcIface.lhs
b/ghc/compiler/iface/TcIface.lhs
index
1061f1c
..
8935f6f
100644
(file)
--- a/
ghc/compiler/iface/TcIface.lhs
+++ b/
ghc/compiler/iface/TcIface.lhs
@@
-121,9
+121,11
@@
importDecl :: Name -> IfM lcl (MaybeErr Message TyThing)
-- Get the TyThing for this Name from an interface file
importDecl name
| Just thing <- wiredInNameTyThing_maybe name
-- Get the TyThing for this Name from an interface file
importDecl name
| Just thing <- wiredInNameTyThing_maybe name
- -- This case only happens for tuples, because we pre-populate the eps_PTE
- -- with other wired-in things. We can't do that for tuples because we
+ -- This case definitely happens for tuples, because we
-- don't know how many of them we'll find
-- don't know how many of them we'll find
+ -- It also now happens for all other wired in things. We used
+ -- to pre-populate the eps_PTE with other wired-in things, but
+ -- we don't seem to do that any more. I guess it keeps the PTE smaller?
= do { updateEps_ (\ eps -> eps { eps_PTE = extendTypeEnv (eps_PTE eps) thing })
; return (Succeeded thing) }
= do { updateEps_ (\ eps -> eps { eps_PTE = extendTypeEnv (eps_PTE eps) thing })
; return (Succeeded thing) }