-pprStgRhs sty (StgRhsClosure cc bi [free_var] upd_flag [{-no args-}] (StgApp func [] lvs))
- = hcat [ text (showCostCentre sty True{-as String-} cc),
- pp_binder_info sty bi,
- ptext SLIT(" ["), ifPprDebug sty (ppr sty free_var),
- ptext SLIT("] \\"), ppr sty upd_flag, ptext SLIT(" [] "), ppr sty func ]
--- general case
-pprStgRhs sty (StgRhsClosure cc bi free_vars upd_flag args body)
- = hang (hcat [ text (showCostCentre sty True{-as String-} cc),
- pp_binder_info sty bi,
- ptext SLIT(" ["), ifPprDebug sty (interppSP sty free_vars),
- ptext SLIT("] \\"), ppr sty upd_flag, ptext SLIT(" ["), interppSP sty args, char ']'])
- 4 (ppr sty body)
-
-pprStgRhs sty (StgRhsCon cc con args)
- = hcat [ text (showCostCentre sty True{-as String-} cc),
- space, ppr sty con, ptext SLIT("! ["), interppSP sty args, char ']' ]
-
---------------
-pp_binder_info sty _ | userStyle sty = empty
-
-pp_binder_info sty NoStgBinderInfo = empty
-
--- cases so boring that we print nothing
-pp_binder_info sty (StgBinderInfo True b c d e) = empty
+pprStgRhs (StgRhsClosure cc bi [free_var] upd_flag srt [{-no args-}] (StgApp func []))
+ = hcat [ ppr cc,
+ pp_binder_info bi,
+ brackets (ifPprDebug (ppr free_var)),
+ ptext SLIT(" \\"), ppr upd_flag, pprMaybeSRT srt, ptext SLIT(" [] "), ppr func ]