diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-12-13 07:55:38 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-12-13 07:55:49 +0300 |
| commit | f899b3892a8c1ce130d6f3f952045fc758099501 (patch) | |
| tree | 435214b43801d4fe3e74ccc3b5d5a9be0a499702 | |
| parent | cd4477c9137d6df8dfc00d66d54900d45f047af9 (diff) | |
| download | haskell-f899b3892a8c1ce130d6f3f952045fc758099501.tar.gz | |
Show recursive Stg bindings in Rec {} blocks
Makes the printer same as Rec binding printer in Core
Reviewers: sgraf, bgamari
Reviewed By: sgraf
Subscribers: rwbarton, carter
Differential Revision: https://phabricator.haskell.org/D5441
| -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]) |