-- Don't print the wrapper (= kind applications)
    -- c.f. HsWrapTy

ppr_mono_ty _         (HsParTy ty)
  = parens (ppr_mono_lty TopPrec ty)
ppr_mono_ty _         (HsParTy ty)
  = parens (ppr_mono_lty TopPrec ty)
ppr_mono_ty _         (HsParTy ty)
  = parens (ppr_mono_lty TopPrec ty)