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

Don’t call error handlers for partial matches.

Browse Source
This commit is contained in:
Rob Rix 2017-08-06 08:12:53 -04:00
parent d0677b71b7
commit 04a9b2dc25
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -297,7 +297,10 @@ runAssignment toNode source = (\ assignment state -> disamb Left (Right . minimu
None (err, state') -> if state == state' then next else None (err, state')
Some as -> Some as) (None (makeError node, state)) as
Throw e -> None (e, state)
Catch during handler -> go during state `catchError` (flip go state { stateErrorCounter = succ stateErrorCounter } . handler . fst) >>= uncurry yield
Catch during handler -> go during state `catchError` (\ (err, state') -> if state == state' then
go (handler err) state { stateErrorCounter = succ stateErrorCounter }
else
None (err, state')) >>= uncurry yield
Choose{} -> None (makeError node, state)
Project{} -> None (makeError node, state)
Children{} -> None (makeError node, state)