= add_par $
sep [sep [ptext SLIT("case") <+> pprCoreExpr expr,
ifPprDebug (braces (ppr ty)),
- hsep [ptext SLIT("of"),
- ppr_bndr var,
- char '{',
- ppr_case_pat con args
- ]],
+ sep [ptext SLIT("of") <+> ppr_bndr var,
+ char '{' <+> ppr_case_pat con args]
+ ],
pprCoreExpr rhs,
char '}'
]