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

[ghc-hetmet.git] / ghc / compiler / typecheck / TcRnMonad.lhs

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 }