Commit 632f020b authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Less verbose output for the in-scope set

With -dppr-debug the output for the (ofen-large) InScope set
was overwhelming.  This makes it smaller.

Only affects debugging.
parent 9fe7d20e
......@@ -99,7 +99,10 @@ data InScopeSet = InScope (VarEnv Var) {-# UNPACK #-} !Int
-- INVARIANT: it's not zero; we use it as a multiplier in uniqAway
instance Outputable InScopeSet where
ppr (InScope s _) = text "InScope" <+> ppr s
ppr (InScope s _) = text "InScope"
<+> braces (fsep (map (ppr . Var.varName) (varSetElems s)))
-- In-scope sets get big, and with -dppr-debug
-- the output is overwhelming
emptyInScopeSet :: InScopeSet
emptyInScopeSet = InScope emptyVarSet 1
Supports Markdown
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