1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00

No term around a list of terms

This commit is contained in:
joshvera 2018-01-17 16:04:46 -05:00
parent 29dc7ed97e
commit 51ce9f5288

View File

@ -615,7 +615,7 @@ statementIdentifier :: Assignment
statementIdentifier = makeTerm <$> symbol StatementIdentifier <*> (Syntax.Identifier <$> source) statementIdentifier = makeTerm <$> symbol StatementIdentifier <*> (Syntax.Identifier <$> source)
importStatement :: Assignment importStatement :: Assignment
importStatement = makeImport <$> symbol Grammar.ImportStatement <*> children ((,) <$> term importClause <*> term string) importStatement = makeImport <$> symbol Grammar.ImportStatement <*> children ((,) <$> importClause <*> term string)
<|> makeTerm <$> symbol Grammar.ImportStatement <*> children (term requireClause) <|> makeTerm <$> symbol Grammar.ImportStatement <*> children (term requireClause)
<|> makeTerm <$> symbol Grammar.ImportStatement <*> children (declarationImport <$> emptyTerm <*> pure [] <*> term string) <|> makeTerm <$> symbol Grammar.ImportStatement <*> children (declarationImport <$> emptyTerm <*> pure [] <*> term string)
where where