X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FPprCore.lhs;fp=compiler%2FcoreSyn%2FPprCore.lhs;h=f167a1fcfbc702aaacabd4c7d82f0a6cd0bad421;hp=c78516a1f7c7910245ec13ffa56fafca2f55c40e;hb=13b1fa907fd5d700167cc4da26668fb356d5ecfc;hpb=38113ad2138652700dc4461cd2d7ab073f9716ac

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