From 3e2baecefaed8b76744b3e1c0503b30ed65eae32 Mon Sep 17 00:00:00 2001 From: Ayman Nadeem Date: Fri, 8 May 2020 15:54:07 -0400 Subject: [PATCH] add error to Rb.Class instance --- semantic-ruby/src/Language/Ruby/Tags.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/semantic-ruby/src/Language/Ruby/Tags.hs b/semantic-ruby/src/Language/Ruby/Tags.hs index ad6fe7da7..ccb959b0a 100644 --- a/semantic-ruby/src/Language/Ruby/Tags.hs +++ b/semantic-ruby/src/Language/Ruby/Tags.hs @@ -86,9 +86,9 @@ instance ToTags Rb.Class where name = expr, extraChildren } = enterScope True $ case expr of - Prj Rb.Constant {text, ann} -> yield text ann - Prj Rb.ScopeResolution {name = Prj Rb.Constant {text, ann}} -> yield text ann - Prj Rb.ScopeResolution {name = Prj Rb.Identifier {text, ann}} -> yield text ann + EPrj Rb.Constant {text, ann} -> yield text ann + EPrj Rb.ScopeResolution {name = EPrj Rb.Constant {text, ann}} -> yield text ann + EPrj Rb.ScopeResolution {name = EPrj Rb.Identifier {text, ann}} -> yield text ann _ -> gtags t where range' = case extraChildren of