- ctxt sty = ppHang (ppSep [ppBesides[ppPStr SLIT("Class `"), ppr sty clas, ppChar '\''],
- ppBesides[ppPStr SLIT("type `"), ppr sty ty1, ppChar '\'']])
- 4 (ppSep [ppBesides [ppPStr SLIT("at "), ppr sty locn1],
- ppBesides [ppPStr SLIT("and "), ppr sty locn2]])
+ ctxt sty = hang (sep [ptext SLIT("Class"), ppr sty clas,
+ ptext SLIT("type"), ppr sty ty1])
+ 4 (sep [hcat [ptext SLIT("at "), ppr sty locn1],
+ hcat [ptext SLIT("and "), ppr sty locn2]])