Insert an empty line between two STG definitions in dump output.
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Fri, 30 Oct 2015 18:54:10 +0000 (19:54 +0100)
committerBen Gamari <ben@smart-cactus.org>
Fri, 30 Oct 2015 18:54:19 +0000 (19:54 +0100)
(Simplifier and desugarer do this already)

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D1395

compiler/stgSyn/StgSyn.hs

index d04a157..1c6a00f 100644 (file)
@@ -49,6 +49,7 @@ module StgSyn (
 import Bitmap
 import CoreSyn     ( AltCon, Tickish )
 import CostCentre  ( CostCentreStack )
+import Data.List   ( intersperse )
 import DataCon
 import DynFlags
 import FastString
@@ -646,7 +647,7 @@ pprStgBinding :: StgBinding -> SDoc
 pprStgBinding  bind  = pprGenStgBinding bind
 
 pprStgBindings :: [StgBinding] -> SDoc
-pprStgBindings binds = vcat (map pprGenStgBinding binds)
+pprStgBindings binds = vcat $ intersperse blankLine (map pprGenStgBinding binds)
 
 instance (Outputable bdee) => Outputable (GenStgArg bdee) where
     ppr = pprStgArg