- pp_alts (UfAlgAlts alts deflt)
- = hsep [hsep (punctuate semi (map pp_alt alts)), pp_deflt deflt]
- where
- pp_alt (c,bs,rhs) = hsep [ppr sty c, ppr sty bs, ppr_arrow, ppr sty rhs]
- pp_alts (UfPrimAlts alts deflt)
- = hsep [hsep (punctuate semi (map pp_alt alts)), pp_deflt deflt]
- where
- pp_alt (l,rhs) = hsep [ppr sty l, ppr_arrow, ppr sty rhs]
-
- pp_deflt UfNoDefault = empty
- pp_deflt (UfBindDefault b rhs) = hsep [ppr sty b, ppr_arrow, ppr sty rhs]
+ pp_alt (c,bs,rhs) = hsep [ppr c, ppr bs, ppr_arrow, ppr rhs]