github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Don't double tags with recursive intro locals

Browse Source
This commit is contained in:
Timothy Clem 2020-01-10 14:02:46 -08:00
parent b192709c9e
commit 9f6da4eb47
1 changed files with 4 additions and 4 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

@ -278,16 +278,16 @@ introduceLocals params = for_ params $ \param -> case param of
Prj Rb.KeywordParameter { name = Rb.Identifier { text = lvar }} -> modify (lvar :) Prj Rb.KeywordParameter { name = Rb.Identifier { text = lvar }} -> modify (lvar :)
Prj Rb.OptionalParameter { name = Rb.Identifier { text = lvar }} -> modify (lvar :) Prj Rb.OptionalParameter { name = Rb.Identifier { text = lvar }} -> modify (lvar :)
Prj Rb.SplatParameter { name = Just Rb.Identifier { text = lvar } } -> modify (lvar :) Prj Rb.SplatParameter { name = Just Rb.Identifier { text = lvar } } -> modify (lvar :)
_ -> tags param _ -> pure ()
instance ToTagsBy 'Custom Rb.MethodParameters where instance ToTagsBy 'Custom Rb.MethodParameters where
tags' Rb.MethodParameters{ extraChildren } = introduceLocals extraChildren tags' t@Rb.MethodParameters{ extraChildren } = introduceLocals extraChildren >> gtags t
instance ToTagsBy 'Custom Rb.LambdaParameters where instance ToTagsBy 'Custom Rb.LambdaParameters where
tags' Rb.LambdaParameters{ extraChildren } = introduceLocals extraChildren tags' t@Rb.LambdaParameters{ extraChildren } = introduceLocals extraChildren >> gtags t
instance ToTagsBy 'Custom Rb.BlockParameters where instance ToTagsBy 'Custom Rb.BlockParameters where
tags' Rb.BlockParameters{ extraChildren } = introduceLocals extraChildren tags' t@Rb.BlockParameters{ extraChildren } = introduceLocals extraChildren >> gtags t
instance ToTagsBy 'Custom Rb.Assignment where instance ToTagsBy 'Custom Rb.Assignment where
tags' t@Rb.Assignment{ left } = do tags' t@Rb.Assignment{ left } = do