include keywords in tooltip lookups (#982)

ionide · Aug 16, 2022 · b2c1388 · b2c1388
1 parent 7f6917d
commit b2c1388
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/FsAutoComplete.Core/ParseAndCheckResults.fs b/src/FsAutoComplete.Core/ParseAndCheckResults.fs
@@ -327,6 +327,12 @@ type ParseAndCheckResults
       | _ -> Ok(tip)
 
   member x.TryGetToolTipEnhanced (pos: Position) (lineStr: LineStr) =
+    let (|EmptyTooltip|_|) (ToolTipText elems) =
+      match elems with
+      | [] -> Some()
+      | elems when elems |> List.forall ((=) ToolTipElement.None) -> Some()
+      | _ -> None
+
     match Completion.atPos (pos, x.GetParseResults.ParseTree) with
     | Completion.Context.StringLiteral -> Ok None
     | Completion.Context.SynType
@@ -343,7 +349,7 @@ type ParseAndCheckResults
           checkResults.GetSymbolUseAtLocation(pos.Line, col, lineStr, identIsland)
 
         match tip with
-        | ToolTipText (elems) when elems |> List.forall ((=) ToolTipElement.None) && symbol.IsNone ->
+        | EmptyTooltip when symbol.IsNone ->
           match identIsland with
           | [ ident ] ->
             match KeywordList.keywordTooltips.TryGetValue ident with