[commit: ghc] master: Don't make -dppr-debug nuke discardWarnings (e1f013c)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e1f013cc59347a727dd285841c8986051aea3e36

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

commit e1f013cc59347a727dd285841c8986051aea3e36
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jul 29 12:16:53 2011 +0100

    Don't make -dppr-debug nuke discardWarnings

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

 compiler/typecheck/TcRnMonad.lhs |    4 ----
 1 files changed, 0 insertions(+), 4 deletions(-)

diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs
index 6fb09c5..1935883 100644
--- a/compiler/typecheck/TcRnMonad.lhs
+++ b/compiler/typecheck/TcRnMonad.lhs
@@ -582,11 +582,7 @@ addMessages (m_warns, m_errs)
 discardWarnings :: TcRn a -> TcRn a
 -- Ignore warnings inside the thing inside;
 -- used to ignore-unused-variable warnings inside derived code
--- With -dppr-debug, the effects is switched off, so you can still see
--- what warnings derived code would give
 discardWarnings thing_inside
-  | opt_PprStyle_Debug = thing_inside
-  | otherwise
   = do	{ errs_var <- newTcRef emptyMessages
 	; result <- setErrsVar errs_var thing_inside
 	; (_warns, errs) <- readTcRef errs_var