Commit f054822c authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Don't filter out allegedly-irrelevant bindings with -dppr-debug

parent 15131ecb
......@@ -40,6 +40,7 @@ import FastString
import Outputable
import SrcLoc
import DynFlags
import StaticFlags ( opt_PprStyle_Debug )
import ListSetOps ( equivClasses )
import Data.Maybe
......@@ -1422,7 +1423,8 @@ relevantBindings want_filtering ctxt ct
<+> ppr (getSrcLoc id)))]
new_seen = tvs_seen `unionVarSet` id_tvs
; if (want_filtering && id_tvs `disjointVarSet` ct_tvs)
; if (want_filtering && not opt_PprStyle_Debug
&& id_tvs `disjointVarSet` ct_tvs)
-- We want to filter out this binding anyway
-- so discard it silently
then go tidy_env n_left tvs_seen docs discards tc_bndrs
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