diff --git a/src/Language/Ruby/Syntax.hs b/src/Language/Ruby/Syntax.hs index 6fac20bf2..4b4ea6a28 100644 --- a/src/Language/Ruby/Syntax.hs +++ b/src/Language/Ruby/Syntax.hs @@ -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