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

s/if'/ifStatement

Browse Source
This commit is contained in:
joshvera 2017-08-17 12:14:28 -04:00
parent 556dc074d9
commit b69a84cd37
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -652,11 +652,9 @@ block = makeTerm <$> symbol DoBlock <*> children (Declaration.Function <$> empt
comment :: Assignment
comment = makeTerm <$> symbol Comment <*> (Comment.Comment <$> source)
if' :: Assignment
if' =
ifElsif If
<|> makeTerm <$> symbol IfModifier <*> children (flip Statement.If <$> expression <*> expression <*> emptyTerm)
where ifElsif s = makeTerm <$> symbol s <*> children (Statement.If <$> expression <*> expressions <*> (fromMaybe <$> emptyTerm <*> optional (ifElsif Elsif <|> else')))
ifStatement :: Assignment
ifStatement = ifElseif If
where ifElsif s = makeTerm <$> symbol s <*> children (Statement.If <$> parenthesizedExpression <*> statement <*> (fromMaybe <$> emptyTerm <*> optional (ifElsif Elsif <|> else')))
else' :: Assignment
else' = makeTerm <$> symbol Else <*> children (many expression)