- = sep [ptext SLIT("GHC stage restriction:") <+> ppr quoter,
- nest 2 (ptext SLIT("is used in a quasiquote, and must be imported, not defined locally"))]
+ = sep [ptext (sLit "GHC stage restriction:") <+> ppr quoter,
+ nest 2 (ptext (sLit "is used in a quasiquote, and must be imported, not defined locally"))]