- ppr (PlaySafe False) = ptext SLIT("safe")
- ppr (PlaySafe True) = ptext SLIT("threadsafe")
- ppr PlayRisky = ptext SLIT("unsafe")
+ ppr (PlaySafe False) = ptext (sLit "safe")
+ ppr (PlaySafe True) = ptext (sLit "threadsafe")
+ ppr PlayRisky = ptext (sLit "unsafe")