From 13b1fa907fd5d700167cc4da26668fb356d5ecfc Mon Sep 17 00:00:00 2001 From: Ben Lippmeier Date: Wed, 8 Dec 2010 07:05:08 +0000 Subject: [PATCH] Always ppr case alts on separate lines --- compiler/coreSyn/PprCore.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs index c78516a..f167a1f 100644 --- a/compiler/coreSyn/PprCore.lhs +++ b/compiler/coreSyn/PprCore.lhs @@ -186,7 +186,7 @@ ppr_expr add_par (Case expr var ty alts) <+> pprCoreExpr expr <+> ifPprDebug (braces (ppr ty)), ptext (sLit "of") <+> ppr_bndr var <+> char '{'], - nest 2 (sep (punctuate semi (map pprCoreAlt alts))), + nest 2 (vcat (punctuate semi (map pprCoreAlt alts))), char '}' ] where -- 1.7.10.4