Always ppr case alts on separate lines

[ghc-hetmet.git] / compiler / coreSyn / PprCore.lhs

diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs
index c78516a..f167a1f 100644 (file)
--- 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