- = failWithTc (vcat [ptext SLIT("The expression"), nest 2 (ppr cmd),
- ptext SLIT("was found where an arrow command was expected")])
+ = failWithTc (vcat [ptext (sLit "The expression"), nest 2 (ppr cmd),
+ ptext (sLit "was found where an arrow command was expected")])