[commit: ghc] master: Less voluminous output when printing continuations (e9cd1d5)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e9cd1d5e9d6f0e019d6433a3c7dd9585b3f7ae6b/ghc

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

commit e9cd1d5e9d6f0e019d6433a3c7dd9585b3f7ae6b
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu May 8 11:05:39 2014 +0100

    Less voluminous output when printing continuations


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

e9cd1d5e9d6f0e019d6433a3c7dd9585b3f7ae6b
 compiler/simplCore/SimplUtils.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
index 888c923..941587c 100644
--- a/compiler/simplCore/SimplUtils.lhs
+++ b/compiler/simplCore/SimplUtils.lhs
@@ -194,7 +194,7 @@ instance Outputable SimplCont where
   ppr (StrictBind b _ _ _ cont)      = (ptext (sLit "StrictBind") <+> ppr b) $$ ppr cont
   ppr (StrictArg ai _ cont)          = (ptext (sLit "StrictArg") <+> ppr (ai_fun ai)) $$ ppr cont
   ppr (Select dup bndr alts se cont) = (ptext (sLit "Select") <+> ppr dup <+> ppr bndr) $$
-                                         (nest 2 $ vcat [ppr (seTvSubst se), ppr alts]) $$ ppr cont
+                                       ifPprDebug (nest 2 $ vcat [ppr (seTvSubst se), ppr alts]) $$ ppr cont
   ppr (CoerceIt co cont)             = (ptext (sLit "CoerceIt") <+> ppr co) $$ ppr cont
   ppr (TickIt t cont)                = (ptext (sLit "TickIt") <+> ppr t) $$ ppr cont