github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Skip anonymous nodes at the end of input.

Browse Source
This commit is contained in:
Rob Rix 2017-04-13 11:02:23 -04:00
parent 1943d62dbf
commit 3b9c53c4c2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,8 +66,9 @@ data Result a = Result a | Error [Text]
-- | Run an assignment of nodes in a grammar onto terms in a syntax, discarding any unparsed nodes.
assignAll :: (Symbol grammar, Eq grammar, Show grammar) => Assignment grammar a -> [AST grammar] -> Result a
assignAll assignment nodes = case runAssignment assignment nodes of
Result ([], a) -> Result a
Result (c:_, _) -> Error ["Expected end of input, but got: " <> show c]
Result (rest, a) -> case dropAnonymous rest of
[] -> Result a
c:_ -> Error ["Expected end of input, but got: " <> show c]
Error e -> Error e
-- | Run an assignment of nodes in a grammar onto terms in a syntax.