- = ppCat [ppStr "AbsFun{", ppr sty arg,
- ppStr "???", -- ppStr "}{env:", ppr sty (keysFM env `zip` eltsFM env),
- ppStr "}" ]
+ = ppCat [ppPStr SLIT("AbsFun{"), ppr sty arg,
+ ppPStr SLIT("???"), -- ppStr "}{env:", ppr sty (keysFM env `zip` eltsFM env),
+ ppChar '}' ]