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

fix introduceLocals

Browse Source
This commit is contained in:
Ayman Nadeem 2020-05-13 12:59:30 -04:00
parent 684adce47e
commit 83b3c6a0a0
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -319,15 +319,20 @@ introduceLocals ::
Has (Writer Tags.Tags) sig m,
Has (State [Text]) sig m
) =>
[ [Parse.Err
((:+:)
[ Parse.Err
( (:+:)
Rb.BlockParameter
(Rb.DestructuredParameter
:+: (Rb.HashSplatParameter
:+: (Rb.Identifier
:+: (Rb.KeywordParameter
:+: (Rb.OptionalParameter :+: Rb.SplatParameter)))))
Loc)]
( Rb.DestructuredParameter
:+: ( Rb.HashSplatParameter
:+: ( Rb.Identifier
:+: ( Rb.KeywordParameter
:+: (Rb.OptionalParameter :+: Rb.SplatParameter)
)
)
)
)
Loc
)
] ->
m ()
introduceLocals params = for_ params $ \param -> case param of