github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 13:51:44 +03:00
Code Issues Projects Releases Wiki Activity

Remove until'

Browse Source
This commit is contained in:
joshvera 2017-08-22 12:30:00 -04:00
parent 8e9999a219
commit 11f452eb36
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Language/TypeScript/Syntax.hs
View File

@ -839,11 +839,6 @@ while' =
makeTerm <$> symbol While <*> children (Statement.While <$> expression <*> expressions) makeTerm <$> symbol While <*> children (Statement.While <$> expression <*> expressions)
<|> makeTerm <$> symbol WhileModifier <*> children (flip Statement.While <$> expression <*> expression) <|> makeTerm <$> symbol WhileModifier <*> children (flip Statement.While <$> expression <*> expression)
until' :: Assignment
until' =
makeTerm <$> symbol Until <*> children (Statement.While <$> invert expression <*> expressions)
<|> makeTerm <$> symbol UntilModifier <*> children (flip Statement.While <$> expression <*> invert expression)
for :: Assignment for :: Assignment
for = makeTerm <$> symbol For <*> children (Statement.ForEach <$> vars <*> expression <*> expressions) for = makeTerm <$> symbol For <*> children (Statement.ForEach <$> vars <*> expression <*> expressions)
where vars = makeTerm <$> location <*> some expression where vars = makeTerm <$> location <*> some expression