We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 488f23d commit 30c42bbCopy full SHA for 30c42bb
ghcide/src/Development/IDE/Spans/AtPoint.hs
@@ -227,10 +227,14 @@ atPoint IdeOptions{} (HAR _ hf _ _ kind) (DKMap dm km) env pos = listToMaybe $ p
227
wrapHaskell x = "\n```haskell\n"<>x<>"\n```\n"
228
info = nodeInfoH kind ast
229
names = M.assocs $ nodeIdentifiers info
230
- -- Check if a name matches a pattern for a generated Core variable.
+ -- Check for evidence bindings
231
isInternal :: (Identifier, IdentifierDetails a) -> Bool
232
isInternal (Right _, dets) =
233
+#if MIN_VERSION_ghc(9,0,1)
234
any isEvidenceContext $ identInfo dets
235
+#else
236
+ False
237
+#endif
238
isInternal (Left _, _) = False
239
filteredNames = filter (not . isInternal) names
240
types = nodeType info
0 commit comments