From 0bf640b19d7a7ad0800152752a71c1dd4e6c696d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Baldur=20Bl=C3=B6ndal?= <baldurpet@gmail.com>
Date: Sun, 3 May 2020 10:43:14 +0100
Subject: Don't require parentheses around via type (`-XDerivingVia'). Fixes
#18130".
---
compiler/GHC/Parser.y | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'compiler/GHC/Parser.y')
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)
--
cgit v1.2.1