[commit: ghc] master: Insert an empty line between two STG definitions in dump output. (1c80db5)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1c80db59dd46a281b0f47abdaedf2bb5915d9e59/ghc

>---------------------------------------------------------------

commit 1c80db59dd46a281b0f47abdaedf2bb5915d9e59
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Fri Oct 30 19:54:10 2015 +0100

    Insert an empty line between two STG definitions in dump output.
    
    (Simplifier and desugarer do this already)
    
    Reviewers: austin, bgamari
    
    Reviewed By: bgamari
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D1395


>---------------------------------------------------------------

1c80db59dd46a281b0f47abdaedf2bb5915d9e59
 compiler/stgSyn/StgSyn.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs
index d04a157..1c6a00f 100644
--- a/compiler/stgSyn/StgSyn.hs
+++ b/compiler/stgSyn/StgSyn.hs
@@ -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