diff options
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index e55cba68ae..2f3148cfeb 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -725,8 +725,9 @@ pprGenStgBinding (StgNonRec bndr rhs) 4 (ppr rhs <> semi) pprGenStgBinding (StgRec pairs) - = vcat $ whenPprDebug (text "{- StgRec (begin) -}") : - map (ppr_bind) pairs ++ [whenPprDebug (text "{- StgRec (end) -}")] + = vcat [ text "Rec {" + , vcat (map ppr_bind pairs) + , text "end Rec }" ] where ppr_bind (bndr, expr) = hang (hsep [pprBndr LetBind bndr, equals]) |