From e393bb3a7dd22fc27e753af3f18356790e65f73c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 25 Jun 2003 08:17:24 +0000
Subject: [PATCH] [project @ 2003-06-25 08:17:24 by simonpj] Remove dead code

---
 ghc/compiler/typecheck/TcRnMonad.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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 }
-- 
1.7.10.4