[project @ 2000-11-17 16:53:27 by simonmar]

[ghc-hetmet.git] / ghc / compiler / rename / Rename.lhs

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 841d7fc..afc43b6 100644 (file)
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -110,7 +110,12 @@ renameExpr dflags hit hst pcs this_module expr
          
        ; renameSource dflags hit hst pcs this_module $
          initRnMS rdr_env emptyLocalFixityEnv SourceMode $
-         (rnExpr expr `thenRn` \ (e,_) -> returnRn (Just (print_unqual, e)))
+         ( rnExpr expr `thenRn` \ (e,_) -> 
+
+           doptRn Opt_D_dump_rn `thenRn` \ dump_rn ->
+           ioToRnM (dumpIfSet dump_rn "Renamer:" (ppr e)) `thenRn_`
+
+           returnRn (Just (print_unqual, e)))
        }
 
   | otherwise