1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00

Allow list in pair

This commit is contained in:
joshvera 2018-01-25 19:44:37 -05:00
parent 0af417ead7
commit e86ab5a0a8

View File

@ -538,7 +538,7 @@ foreachStatement = makeTerm <$> symbol ForeachStatement <*> children (forEachSta
where forEachStatement' array value body = Statement.ForEach value array body
pair :: Assignment
pair = makeTerm <$> symbol Pair <*> children (Literal.KeyValue <$> expression <*> expression)
pair = makeTerm <$> symbol Pair <*> children (Literal.KeyValue <$> expression <*> (expression <|> list))
jumpStatement :: Assignment
jumpStatement = choice [