Switched to using isEvidenceContext to filter out evidence bindings.

Author: drone29a

ghcide/src/Development/IDE/Spans/AtPoint.hs

@@ -34,7 +34,6 @@ import           Development.IDE.Core.PositionMapping
 import           Development.IDE.Core.RuleTypes
 import           Development.IDE.GHC.Compat
 import qualified Development.IDE.GHC.Compat.Util      as Util
-import           Development.IDE.GHC.CoreFile         (occNamePrefixes)
 import           Development.IDE.GHC.Util             (printOutputable)
 import           Development.IDE.Spans.Common
 import           Development.IDE.Types.Options
@@ -230,9 +229,8 @@ atPoint IdeOptions{} (HAR _ hf _ _ kind) (DKMap dm km) env pos = listToMaybe $ p
         names = M.assocs $ nodeIdentifiers info
         -- Check if a name matches a pattern for a generated Core variable.
         isInternal :: (Identifier, IdentifierDetails a) -> Bool
-        isInternal (Right n, _) =
-          let name = printOutputable n
-          in any (`T.isPrefixOf` name) occNamePrefixes
+        isInternal (Right _, dets) =
+          any isEvidenceContext $ identInfo dets
         isInternal (Left _, _) = False
         filteredNames = filter (not . isInternal) names
         types = nodeType info