diff options
| author | Zubin Duggal <zubin.duggal@gmail.com> | 2022-01-14 17:18:21 +0530 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-24 20:24:25 -0500 |
| commit | 06c18990fb6f10aaf1907ba8f0fe3f1a138da159 (patch) | |
| tree | 65e46821f30a1e31328cdd0f404a245c68ce861c /libraries/template-haskell | |
| parent | a5ea78673eae7c837a5ccb7882e908a4df92e75d (diff) | |
| download | haskell-06c18990fb6f10aaf1907ba8f0fe3f1a138da159.tar.gz | |
TH: fix pretty printing of GADTs with multiple constuctors (#20842)
Diffstat (limited to 'libraries/template-haskell')
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs index d9ae558c15..9627f5c256 100644 --- a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs +++ b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs @@ -452,7 +452,7 @@ ppr_data maybeInst ctxt t argsDoc ksig cs decs Just n -> pprName' Applied n <+> argsDoc Nothing -> argsDoc <+> ksigDoc <+> maybeWhere, - nest nestDepth (sep (pref $ map ppr cs)), + nest nestDepth (vcat (pref $ map ppr cs)), if null decs then empty else nest nestDepth |