projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5943a1a
)
[project @ 2003-10-20 14:04:07 by simonpj]
author
simonpj
<unknown>
Mon, 20 Oct 2003 14:04:07 +0000
(14:04 +0000)
committer
simonpj
<unknown>
Mon, 20 Oct 2003 14:04:07 +0000
(14:04 +0000)
Wibble to the last commit; report derived warnings with -dppr-debug
ghc/compiler/typecheck/TcRnMonad.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/typecheck/TcRnMonad.lhs
b/ghc/compiler/typecheck/TcRnMonad.lhs
index
c30ead5
..
dc0e8f0
100644
(file)
--- a/
ghc/compiler/typecheck/TcRnMonad.lhs
+++ b/
ghc/compiler/typecheck/TcRnMonad.lhs
@@
-410,6
+410,8
@@
discardWarnings :: TcRn a -> TcRn a
-- 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 <- newMutVar emptyMessages
; result <- setErrsVar errs_var thing_inside
; (_warns, errs) <- readMutVar errs_var