1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00

🔥 top level term

This commit is contained in:
Rick Winfrey 2017-11-20 10:41:56 -08:00
parent 1d6f06e2bc
commit 4d92c9ce4e

View File

@ -128,7 +128,7 @@ assignment :: Assignment
assignment = handleError $ makeTerm <$> symbol SourceFile <*> children (Syntax.Program <$> manyTerm expression) <|> parseError
expression :: Assignment
expression = term (handleError (choice expressionChoices))
expression = handleError (choice expressionChoices)
expressionChoices :: [Assignment.Assignment [] Grammar Term]
expressionChoices =