diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-03-17 18:07:45 +0000 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2022-04-06 08:19:39 +0000 |
| commit | d7ce7274d08d167330f228f76057f8ef5b8916dd (patch) | |
| tree | 27dde24bbc2bda7bd24badfef6683fb1390bb5f3 /compiler | |
| parent | ed62dc66c6fff433349145b4cc41198effedfab8 (diff) | |
| download | haskell-wip/az/T20558.tar.gz | |
EPA: handling of con_bndrs in mkGadtDeclwip/az/T20558
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 |