diff options
| author | Baldur Blöndal <baldurpet@gmail.com> | 2020-05-03 10:43:14 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-04 01:57:36 -0400 |
| commit | 0bf640b19d7a7ad0800152752a71c1dd4e6c696d (patch) | |
| tree | ad8752d12261517520765da174f95a68e81f3bcc /compiler/GHC/Parser.y | |
| parent | 8bdc03d61cb7a2f96887c86bd0b253f7c108fcde (diff) | |
| download | haskell-0bf640b19d7a7ad0800152752a71c1dd4e6c696d.tar.gz | |
Don't require parentheses around via type (`-XDerivingVia'). Fixes #18130".
Diffstat (limited to 'compiler/GHC/Parser.y')
| -rw-r--r-- | compiler/GHC/Parser.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Parser.y b/compiler/GHC/Parser.y index bafed741be..7c0790da12 100644 --- a/compiler/GHC/Parser.y +++ b/compiler/GHC/Parser.y @@ -1209,8 +1209,8 @@ deriv_strategy_no_via :: { LDerivStrategy GhcPs } [mj AnnNewtype $1] } deriv_strategy_via :: { LDerivStrategy GhcPs } - : 'via' type {% ams (sLL $1 $> (ViaStrategy (mkLHsSigType $2))) - [mj AnnVia $1] } + : 'via' ktype {% ams (sLL $1 $> (ViaStrategy (mkLHsSigType $2))) + [mj AnnVia $1] } deriv_standalone_strategy :: { Maybe (LDerivStrategy GhcPs) } : 'stock' {% ajs (sL1 $1 StockStrategy) |