diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2019-10-21 14:57:01 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-24 08:46:19 -0400 |
| commit | 6824f29aebd28571db118eb6877ef04eda630871 (patch) | |
| tree | 4a30df6ac47e1d31af32f28ce59d7773fd876be9 /compiler | |
| parent | 83655b06e6d3e93b2d15bb0fa250fbb113d7fe68 (diff) | |
| download | haskell-6824f29aebd28571db118eb6877ef04eda630871.tar.gz | |
Parenthesize GADT return types in pprIfaceConDecl (#17384)
We were using `pprIfaceAppArgs` instead of `pprParendIfaceAppArgs`
in `pprIfaceConDecl`. Oops.
Fixes #17384.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/iface/IfaceSyn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/IfaceSyn.hs b/compiler/iface/IfaceSyn.hs index ce4332c27b..f691300157 100644 --- a/compiler/iface/IfaceSyn.hs +++ b/compiler/iface/IfaceSyn.hs @@ -1203,7 +1203,7 @@ pprIfaceConDecl ss gadt_style tycon tc_binders parent -- [VarBndrs, TyCoVarBinders, TyConBinders, and visibility] in TyCoRep.) ppr_tc_app gadt_subst = pprPrefixIfDeclBndr how_much (occName tycon) - <+> pprIfaceAppArgs + <+> pprParendIfaceAppArgs (substIfaceAppArgs gadt_subst (mk_tc_app_args tc_binders)) mk_tc_app_args :: [IfaceTyConBinder] -> IfaceAppArgs |