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

Abbreviate the definition of state.

Browse Source
This commit is contained in:
Rob Rix 2017-08-04 11:29:34 -04:00
parent 91f149310d
commit a433fe8072
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -291,8 +291,7 @@ runAssignment toNode source = (\ assignment state -> disamb Left (Right . minimu
Children{} -> None (makeError node) Children{} -> None (makeError node)
Source -> None (makeError node) Source -> None (makeError node)
state | _:_ <- expectedSymbols, all ((== Regular) . symbolType) expectedSymbols = dropAnonymous initialState state = if not (null expectedSymbols) && all ((== Regular) . symbolType) expectedSymbols then dropAnonymous initialState else initialState
| otherwise = initialState
expectedSymbols | Choose choices _ <- assignment = (toEnum :: Int -> grammar) <$> IntMap.keys choices expectedSymbols | Choose choices _ <- assignment = (toEnum :: Int -> grammar) <$> IntMap.keys choices
| otherwise = [] | otherwise = []
makeError :: HasCallStack => Maybe (Base ast ast) -> Error grammar makeError :: HasCallStack => Maybe (Base ast ast) -> Error grammar