github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 22:28:10 +03:00
Code Issues Projects Releases Wiki Activity

Rb.DoBlock

Browse Source
This commit is contained in:
Ayman Nadeem 2020-05-13 11:32:27 -04:00
parent 1f09965e24
commit 0cc12e3812
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
semantic-ruby/src/Language/Ruby/Tags.hs
View File

@ -198,9 +198,11 @@ instance ToTags Rb.DoBlock where
tags = enterScope False . gtags
instance ToTags Rb.Lambda where
tags Rb.Lambda {body, parameters} = enterScope False $ do
maybe (pure ()) tags parameters
tags body
tags Rb.Lambda {body = Parse.Success b, parameters} = enterScope False $ do
case parameters of
Just (Parse.Success p) -> tags p
_ -> pure ()
tags b
instance ToTags Rb.If where
tags Rb.If {condition, consequence, alternative} = do