From cd0fb82f57a16c96e720d47ec80a4f8fda58083d Mon Sep 17 00:00:00 2001
From: Alan Zimmerman <alan.zimm@gmail.com>
Date: Wed, 27 Mar 2024 17:55:37 +0000
Subject: [PATCH] EPA: Fix FamDecl range
The span was incorrect if opt_datafam_kind_sig was empty
---
compiler/GHC/Parser.y | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/GHC/Parser.y b/compiler/GHC/Parser.y
index 6337a645a9a2..6ad6c6a12aec 100644
--- a/compiler/GHC/Parser.y
+++ b/compiler/GHC/Parser.y
@@ -1313,7 +1313,7 @@ ty_decl :: { LTyClDecl GhcPs }
-- data/newtype family
| 'data' 'family' type opt_datafam_kind_sig
- {% mkFamDecl (comb3 $1 $2 $4) DataFamily TopLevel $3
+ {% mkFamDecl (comb4 $1 $2 $3 $4) DataFamily TopLevel $3
(snd $ unLoc $4) Nothing
(mj AnnData $1:mj AnnFamily $2:(fst $ unLoc $4)) }
--
GitLab