diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-03-17 18:07:45 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-07 07:56:28 -0400 |
| commit | 54b1882416558936d171d78749400b1c838b11b8 (patch) | |
| tree | 66452d1e25d2c3ca065fec356905cd96ccd788cd /compiler | |
| parent | 429ea5d9147a9d3bd2513b27a4064c1ca1be2090 (diff) | |
| download | haskell-54b1882416558936d171d78749400b1c838b11b8.tar.gz | |
EPA: handling of con_bndrs in mkGadtDecl
Get rid of unnnecessary case clause that always matched.
Closes #20558
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Parser/PostProcess.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Parser/PostProcess.hs b/compiler/GHC/Parser/PostProcess.hs index 81082534e9..ef3f279567 100644 --- a/compiler/GHC/Parser/PostProcess.hs +++ b/compiler/GHC/Parser/PostProcess.hs @@ -746,8 +746,7 @@ mkGadtDecl loc names ty annsIn = do let (anns, cs, arg_types, res_type) = splitHsFunType body_ty return (PrefixConGADT arg_types, res_type, anns, cs) - let an = case outer_bndrs of - _ -> EpAnn (spanAsAnchor loc) (annsIn ++ annsa) (cs Semi.<> csa) + let an = EpAnn (spanAsAnchor loc) (annsIn ++ annsa) (cs Semi.<> csa) pure $ L l ConDeclGADT { con_g_ext = an |