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:
2ec7f46
)
[project @ 2003-06-25 08:17:24 by simonpj]
author
simonpj
<unknown>
Wed, 25 Jun 2003 08:17:24 +0000
(08:17 +0000)
committer
simonpj
<unknown>
Wed, 25 Jun 2003 08:17:24 +0000
(08:17 +0000)
Remove dead code
ghc/compiler/typecheck/TcRnMonad.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/typecheck/TcRnMonad.lhs
b/ghc/compiler/typecheck/TcRnMonad.lhs
index
1177d67
..
835752e
100644
(file)
--- a/
ghc/compiler/typecheck/TcRnMonad.lhs
+++ b/
ghc/compiler/typecheck/TcRnMonad.lhs
@@
-782,8
+782,7
@@
incProcLevel
\begin{code}
initRn :: RnMode -> RnM a -> TcRn m a
initRn mode thing_inside
- = do { env <- getGblEnv ;
- let { lcl_env = RnLclEnv {
+ = do { let { lcl_env = RnLclEnv {
rn_mode = mode,
rn_lenv = emptyRdrEnv }} ;
setLclEnv lcl_env thing_inside }