- = case sty of
- PprForUser -> ppPStr s
- PprInterface _ -> ppPStr s
- other -> ppBesides [ppPStr s, ppChar '{',
- ppSep [pprUnique u,
- ppStr "op", ppInt i,
- ppStr "cls", ppr sty c],
- ppChar '}']
-
- ppr sty (Unbound s) = ppStr ("*UNBOUND*"++ _UNPK_ s)
+ = let
+ ps = ppPStr s
+ in
+ case sty of
+ PprForUser -> ps
+ PprInterface _ -> ps
+ PprDebug -> ps
+ other -> ppBesides [ps, ppChar '{',
+ ppSep [pprUnique u,
+ ppStr "op", ppInt i,
+ ppStr "cls", ppr sty c],
+ ppChar '}']
+
+ ppr sty (Unbound s) = ppStr ("*UNBOUND*"++ _UNPK_ s)