From: simonpj <unknown>
Date: Wed, 25 Jun 2003 08:17:24 +0000 (+0000)
Subject: [project @ 2003-06-25 08:17:24 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~739
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e393bb3a7dd22fc27e753af3f18356790e65f73c

[project @ 2003-06-25 08:17:24 by simonpj]
Remove dead code
---

diff --git a/ghc/compiler/typecheck/TcRnMonad.lhs b/ghc/compiler/typecheck/TcRnMonad.lhs
index 1177d67..835752e 100644
--- 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 }