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

Fix assignment double tagging

Browse Source
This commit is contained in:
Timothy Clem 2020-01-10 14:05:30 -08:00
parent 9f6da4eb47
commit 99e9ee08aa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,14 +294,14 @@ instance ToTagsBy 'Custom Rb.Assignment where
case left of case left of
Prj (Rb.Lhs (Prj (Rb.Variable (Prj Rb.Identifier { text })))) -> modify (text :) Prj (Rb.Lhs (Prj (Rb.Variable (Prj Rb.Identifier { text })))) -> modify (text :)
Prj Rb.LeftAssignmentList { extraChildren } -> introduceLhsLocals extraChildren Prj Rb.LeftAssignmentList { extraChildren } -> introduceLhsLocals extraChildren
_ -> tags left _ -> pure ()
gtags t gtags t
where where
introduceLhsLocals xs = for_ xs $ \x -> case x of introduceLhsLocals xs = for_ xs $ \x -> case x of
Prj (Rb.Lhs (Prj (Rb.Variable (Prj Rb.Identifier { text })))) -> modify (text :) Prj (Rb.Lhs (Prj (Rb.Variable (Prj Rb.Identifier { text })))) -> modify (text :)
Prj Rb.DestructuredLeftAssignment { extraChildren } -> introduceLhsLocals extraChildren Prj Rb.DestructuredLeftAssignment { extraChildren } -> introduceLhsLocals extraChildren
Prj Rb.RestAssignment { extraChildren = Just (Rb.Lhs (Prj (Rb.Variable (Prj Rb.Identifier { text })))) } -> modify (text :) Prj Rb.RestAssignment { extraChildren = Just (Rb.Lhs (Prj (Rb.Variable (Prj Rb.Identifier { text })))) } -> modify (text :)
_ -> tags x _ -> pure ()
gtags gtags
:: ( Has (Reader Source) sig m :: ( Has (Reader Source) sig m