-pprMatchContext CaseAlt = ptext SLIT("a case alternative")
-pprMatchContext RecUpd = ptext SLIT("a record-update construct")
-pprMatchContext PatBindRhs = ptext SLIT("a pattern binding")
-pprMatchContext LambdaExpr = ptext SLIT("a lambda abstraction")
-pprMatchContext ProcExpr = ptext SLIT("an arrow abstraction")
-pprMatchContext (StmtCtxt ctxt) = ptext SLIT("a pattern binding in")
+pprMatchContext CaseAlt = ptext (sLit "a case alternative")
+pprMatchContext RecUpd = ptext (sLit "a record-update construct")
+pprMatchContext PatBindRhs = ptext (sLit "a pattern binding")
+pprMatchContext LambdaExpr = ptext (sLit "a lambda abstraction")
+pprMatchContext ProcExpr = ptext (sLit "an arrow abstraction")
+pprMatchContext (StmtCtxt ctxt) = ptext (sLit "a pattern binding in")