Show recursive Stg bindings in Rec {} blocks
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Thu, 13 Dec 2018 04:55:38 +0000 (07:55 +0300)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Thu, 13 Dec 2018 04:55:49 +0000 (07:55 +0300)
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

compiler/stgSyn/StgSyn.hs

index e55cba6..2f3148c 100644 (file)
@@ -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])