fix stop omit occname #3950

haskell · Jan 13, 2024 · 30e7f05 · 30e7f05
1 parent 4ae63f0
commit 30e7f05
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens/Query.hs b/plugins/hls-semantic-tokens-plugin/src/Ide/Plugin/SemanticTokens/Query.hs
@@ -84,9 +84,7 @@ hieAstSpanNames vf ast =
         exclusion :: Identifier -> IdentifierDetails a -> Bool
         exclusion idt IdentifierDetails {identInfo = infos} = case idt of
           Left _ -> True
-          Right name ->
-            isDerivedOccName (nameOccName name)
-              || any isEvidenceContext (S.toList infos)
+          Right _ -> any isEvidenceContext (S.toList infos)
 
 -------------------------------------------------