diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2015-10-30 19:54:10 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-10-30 19:54:19 +0100 |
| commit | 1c80db59dd46a281b0f47abdaedf2bb5915d9e59 (patch) | |
| tree | fa0c9f872aa7a23cf0d2ad5a1f7e11d12c472990 /compiler | |
| parent | 3e2c227ebc42f7ab51046cb424c8642a46050daf (diff) | |
| download | haskell-1c80db59dd46a281b0f47abdaedf2bb5915d9e59.tar.gz | |
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
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index d04a15791a..1c6a00f147 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 |