[commit: ghc] wip/orf-reboot: Remove confused debugging code (a3373da)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/orf-reboot
Link       : http://ghc.haskell.org/trac/ghc/changeset/a3373da46ac9a01527d78cab1d97b5bbe2c0c554/ghc

>---------------------------------------------------------------

commit a3373da46ac9a01527d78cab1d97b5bbe2c0c554
Author: Adam Gundry <adam at well-typed.com>
Date:   Mon Oct 5 16:06:24 2015 +0100

    Remove confused debugging code


>---------------------------------------------------------------

a3373da46ac9a01527d78cab1d97b5bbe2c0c554
 compiler/rename/RnEnv.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/rename/RnEnv.hs b/compiler/rename/RnEnv.hs
index f6465a3..68501da 100644
--- a/compiler/rename/RnEnv.hs
+++ b/compiler/rename/RnEnv.hs
@@ -949,10 +949,7 @@ addUsedGRE warn_if_deprec gre
   = do { unless (isLocalGRE gre) $
          do { env <- getGblEnv
             ; traceRn (text "addUsedGRE 1" <+> ppr gre)
-            ; updMutVar (tcg_used_gres env) (\ env -> extendNameEnv_C plusGRE env (gre_name gre) gre)
-            ; blah <- readMutVar (tcg_used_gres env)
-              -- AMG TODO ARGH why doesn't this extend with the GRE?
-            ; traceRn (text "AMG addUsedGRE uses" <+> ppr blah) }
+            ; updMutVar (tcg_used_gres env) (\ env -> extendNameEnv_C plusGRE env (gre_name gre) gre) }
 
        ; when warn_if_deprec $
          warnIfDeprecated gre }