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

Methods are identifiable.

Browse Source
This commit is contained in:
Rob Rix 2017-04-24 13:41:20 -04:00
parent 54108f0019
commit d3517ab60f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,4 +113,5 @@ optional a = a <|> term <*> pure Syntax.Empty
identifiable :: Term Syntax a -> [Term Syntax a]
identifiable = para $ \ c@(_ :< union) -> case union of
_ | Just Declaration.Class{} <- prj union -> cofree (fmap fst c) : foldMap snd union
_ | Just Declaration.Method{} <- prj union -> cofree (fmap fst c) : foldMap snd union
_ -> foldMap snd union