- ppStr "{-# SPECIALIZE", ppStr "data",
- pprNonOp PprForUser tycon, ppCat (map (pprParendGenType sty) spec_tys),
- ppStr "#-}", ppStr "{- Essential -}"
+ ppStr "{-# SPECIALIZE data",
+ pprNonSym PprForUser tycon, ppCat (map (pprParendGenType sty) spec_tys),
+ ppStr "-} {- Essential -}"