- ppr NotGlobalId = ptext SLIT("[***NotGlobalId***]")
- ppr VanillaGlobal = ptext SLIT("[GlobalId]")
- ppr (DataConWorkId _) = ptext SLIT("[DataCon]")
- ppr (DataConWrapId _) = ptext SLIT("[DataConWrapper]")
- ppr (ClassOpId _) = ptext SLIT("[ClassOp]")
- ppr (PrimOpId _) = ptext SLIT("[PrimOp]")
- ppr (FCallId _) = ptext SLIT("[ForeignCall]")
- ppr (TickBoxOpId _) = ptext SLIT("[TickBoxOp]")
- ppr (RecordSelId {}) = ptext SLIT("[RecSel]")
+ ppr NotGlobalId = ptext (sLit "[***NotGlobalId***]")
+ ppr VanillaGlobal = ptext (sLit "[GlobalId]")
+ ppr (DataConWorkId _) = ptext (sLit "[DataCon]")
+ ppr (DataConWrapId _) = ptext (sLit "[DataConWrapper]")
+ ppr (ClassOpId _) = ptext (sLit "[ClassOp]")
+ ppr (PrimOpId _) = ptext (sLit "[PrimOp]")
+ ppr (FCallId _) = ptext (sLit "[ForeignCall]")
+ ppr (TickBoxOpId _) = ptext (sLit "[TickBoxOp]")
+ ppr (RecordSelId {}) = ptext (sLit "[RecSel]")