github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 08:54:14 +03:00
Code Issues Projects Releases Wiki Activity

Remove the outer bind in the lambda rule.

Browse Source
This commit is contained in:
Rob Rix 2017-10-06 10:49:25 -04:00
parent f22ed8fb9d
commit faf3215124
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Ruby/Syntax.hs
View File

@ -235,11 +235,11 @@ singletonMethod = makeTerm <$> symbol SingletonMethod <*> children (Declaration.
where params = symbol MethodParameters *> children (many parameter) <|> pure []
lambda :: Assignment
lambda = symbol Lambda >>= \ loc -> children $ do
lambda = makeTerm <$> symbol Lambda <*> children (do
name <- emptyTerm
params <- (symbol BlockParameters <|> symbol LambdaParameters) *> children (many parameter) <|> pure []
body <- expressions
pure $ makeTerm loc (Declaration.Function [] name params body)
pure (Declaration.Function [] name params body))
block :: Assignment
block = makeTerm <$> symbol DoBlock <*> children (Declaration.Function <$> pure [] <*> emptyTerm <*> params <*> expressions)