Commit 091dcbb0 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-10-20 14:04:07 by simonpj]

Wibble to the last commit; report derived warnings with -dppr-debug
parent 5943a1ad
...@@ -410,6 +410,8 @@ discardWarnings :: TcRn a -> TcRn a ...@@ -410,6 +410,8 @@ discardWarnings :: TcRn a -> TcRn a
-- With -dppr-debug, the effects is switched off, so you can still see -- With -dppr-debug, the effects is switched off, so you can still see
-- what warnings derived code would give -- what warnings derived code would give
discardWarnings thing_inside discardWarnings thing_inside
| opt_PprStyle_Debug = thing_inside
| otherwise
= do { errs_var <- newMutVar emptyMessages = do { errs_var <- newMutVar emptyMessages
; result <- setErrsVar errs_var thing_inside ; result <- setErrsVar errs_var thing_inside
; (_warns, errs) <- readMutVar errs_var ; (_warns, errs) <- readMutVar errs_var
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment