From 2d4b82a0a94edeaedd9d0c4b3f023ac8d1d59766 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 8 Feb 2006 15:03:57 +0000 Subject: [PATCH] Show types of case result when debug is on --- ghc/compiler/coreSyn/PprCore.lhs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs index e20d5ee..864f4bd 100644 --- a/ghc/compiler/coreSyn/PprCore.lhs +++ b/ghc/compiler/coreSyn/PprCore.lhs @@ -154,8 +154,8 @@ ppr_expr add_par expr@(App fun arg) ppr_expr add_par (Case expr var ty [(con,args,rhs)]) = add_par $ - sep [sep [ptext SLIT("case") {- <+> pprParendType ty -} <+> pprCoreExpr expr, - -- Printing the result type is excessive! + sep [sep [ptext SLIT("case") <+> pprCoreExpr expr, + ifPprDebug (braces (ppr ty)), hsep [ptext SLIT("of"), ppr_bndr var, char '{', @@ -169,7 +169,9 @@ ppr_expr add_par (Case expr var ty [(con,args,rhs)]) ppr_expr add_par (Case expr var ty alts) = add_par $ - sep [sep [ptext SLIT("case") {- <+> pprParendType ty -} <+> pprCoreExpr expr, + sep [sep [ptext SLIT("case") + <+> pprCoreExpr expr + <+> ifPprDebug (braces (ppr ty)), ptext SLIT("of") <+> ppr_bndr var <+> char '{'], nest 2 (sep (punctuate semi (map pprCoreAlt alts))), char '}' -- 1.7.10.4