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

Recover from errors naïvely.

Browse Source
This commit is contained in:
Rob Rix 2018-07-03 09:54:42 -04:00
parent 754e7c1e1c
commit 6b5c78160e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Assigning/Assignment/Deterministic.hs
View File

@ -117,7 +117,7 @@ instance (Enum symbol, Ord symbol, Show symbol) => Assigning symbol (Assignment
NotNullable -> NotNullable) NotNullable -> NotNullable)
(firstSet a) (firstSet a)
(map (fmap (\ match src state follow -> case match src state follow of (map (fmap (\ match src state follow -> case match src state follow of
Left err -> Left err Left err -> Right (advanceState state, termIn (stateLocation state) (inject (Syntax.errorSyntax (either id show <$> err) [])))
Right (state', syntax) -> Right (state', termIn (stateLocation state) (inject syntax)))) (choices a)) Right (state', syntax) -> Right (state', termIn (stateLocation state) (inject syntax)))) (choices a))