diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-07-25 10:44:38 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-25 17:26:03 -0400 |
| commit | b9c99df1a4cdd23bcd26db7ae6ee7ee6464d654e (patch) | |
| tree | c5b5a2a438b617d1fbf853003e7e3cd293a0da01 /compiler/stgSyn | |
| parent | cb495b3cb416be82e36dbb4eca10a68743ebc549 (diff) | |
| download | haskell-b9c99df1a4cdd23bcd26db7ae6ee7ee6464d654e.tar.gz | |
Printer: add an empty line between bindings in Rec STG binding groups
Before:
Rec {
x2_r10T :: Lib.Bar
[GblId, Unf=OtherCon []] =
CCS_DONT_CARE Lib.Bar! [x3_r10U];
x3_r10U :: Lib.Foo
[GblId, Unf=OtherCon []] =
CCS_DONT_CARE Lib.Foo! [x1_r10p x2_r10T];
end Rec }
After:
Rec {
x2_r10T :: Lib.Bar
[GblId, Unf=OtherCon []] =
CCS_DONT_CARE Lib.Bar! [x3_r10U];
x3_r10U :: Lib.Foo
[GblId, Unf=OtherCon []] =
CCS_DONT_CARE Lib.Foo! [x1_r10p x2_r10T];
end Rec }
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/StgSyn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stgSyn/StgSyn.hs b/compiler/stgSyn/StgSyn.hs index f7dae5dbe2..dc0960ebb7 100644 --- a/compiler/stgSyn/StgSyn.hs +++ b/compiler/stgSyn/StgSyn.hs @@ -732,7 +732,7 @@ pprGenStgBinding (StgNonRec bndr rhs) pprGenStgBinding (StgRec pairs) = vcat [ text "Rec {" - , vcat (map ppr_bind pairs) + , vcat (intersperse blankLine (map ppr_bind pairs)) , text "end Rec }" ] where ppr_bind (bndr, expr) |