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

Committed choices with alternatives attempt the alternative.

Browse Source
This commit is contained in:
Rob Rix 2017-08-03 19:31:16 -04:00
parent 51185311af
commit f79e118d2e
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

@ -274,7 +274,7 @@ runAssignment toNode source = (\ assignment state -> go assignment state >>= req
Children child -> do
(a, state') <- go child state { stateNodes = toList node } >>= requireExhaustive
yield a (advance state' { stateNodes = stateNodes state })
Choose choices _ | Just choice <- IntMap.lookup (fromEnum (nodeSymbol (toNode node))) choices -> yield choice state
Choose choices atEnd | Just choice <- IntMap.lookup (fromEnum (nodeSymbol (toNode node))) choices -> maybe id (flip (<>) . flip yield state) atEnd (yield choice state)
_ -> anywhere (Just node)
anywhere node = case assignment of