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

Avoid recomputating the bodies of catch rules.

Browse Source
This commit is contained in:
Rob Rix 2017-08-03 20:17:59 -04:00
parent 92f2745bc3
commit d1e3518732
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/Data/Syntax/Assignment.hs
View File

@ -283,7 +283,7 @@ runAssignment toNode source = (\ assignment state -> go assignment state >>= req
Many rule -> fix (\ recur list state -> yield list state <> (go rule state >>= \ (a, state') -> if stateCounter state == stateCounter state' then yield (list <> [a]) state' else recur (list <> [a]) state')) [] state
Alt as -> Some as >>= flip yield state
Throw e -> None e
Catch during handler -> (go during state >>= uncurry yield) <> (go during state `catchError` (flip go state . handler) >>= uncurry yield)
Catch during handler -> let partial = go during state in (partial >>= uncurry yield) <> (partial `catchError` (flip go state . handler) >>= uncurry yield)
Choose{} -> None (makeError node)
Project{} -> None (makeError node)
Children{} -> None (makeError node)