Commit 1c80db59 authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan Committed by Ben Gamari
Browse files

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:
parent 3e2c227e
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment