github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

Drop anonymous nodes before catches whose bodies would drop anonymous nodes.

Browse Source 
This prevents handlers capturing tokens that would otherwise have been skipped altogether.
This commit is contained in:
Rob Rix 2017-08-06 16:14:55 -04:00
parent de18f9c860
commit 1635baf667
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Syntax/Assignment.hs
View File

@ -197,6 +197,7 @@ nodeError expected (Node actual _ span) = Error span expected (Just (Right actua
firstSet :: Assignment ast grammar a -> [grammar] firstSet :: Assignment ast grammar a -> [grammar]
firstSet = iterFreer (\ assignment _ -> case assignment of firstSet = iterFreer (\ assignment _ -> case assignment of
Choose symbols _ -> symbols Choose symbols _ -> symbols
Catch during _ -> firstSet during
_ -> []) . ([] <$) _ -> []) . ([] <$)