@@ -97,14 +97,10 @@ type internal FSharpCompletionProvider
9797
9898
9999static member ProvideCompletionsAsyncAux ( checker : FSharpChecker , sourceText : SourceText , caretPosition : int , options : FSharpProjectOptions , filePath : string ,
100- textVersionHash : int , getAllSymbols : unit -> AssemblySymbol list ) =
100+ textVersionHash : int , getAllSymbols : FSharpCheckFileResults -> AssemblySymbol list ) =
101101asyncMaybe {
102102let! parseResults , _ , checkFileResults = checker.ParseAndCheckDocument( filePath, textVersionHash, sourceText.ToString(), options, allowStaleResults= true , userOpName= userOpName)
103103
104- //#if DEBUG
105- //Logging.Logging.logInfof "AST:\n%+A" parsedInput
106- //#endif
107-
108104let textLines = sourceText.Lines
109105let caretLinePos = textLines.GetLinePosition( caretPosition)
110106let caretLine = textLines.GetLineFromPosition( caretPosition)
@@ -113,7 +109,7 @@ type internal FSharpCompletionProvider
113109let partialName = QuickParse.GetPartialLongNameEx( caretLine.ToString(), caretLineColumn- 1 )
114110
115111let getAllSymbols () =
116- getAllSymbols()
112+ getAllSymbols checkFileResults
117113|> List.filter( fun entity -> entity.FullName.Contains" ." && not ( PrettyNaming.IsOperatorName entity.Symbol.DisplayName))
118114
119115let! declarations = checkFileResults.GetDeclarationListInfo( Some( parseResults), fcsCaretLineNumber, caretLine.ToString(),
@@ -222,8 +218,7 @@ type internal FSharpCompletionProvider
222218do ! Option.guard( CompletionUtils.shouldProvideCompletion( document.Id, document.FilePath, defines, sourceText, context.Position))
223219let! _parsingOptions , projectOptions = projectInfoManager.TryGetOptionsForEditingDocumentOrProject( document)
224220let! textVersion = context.Document.GetTextVersionAsync( context.CancellationToken)
225- let! _ , _ , fileCheckResults = checker.ParseAndCheckDocument( document, projectOptions, true , userOpName= userOpName)
226- let getAllSymbols () =
221+ let getAllSymbols ( fileCheckResults : FSharpCheckFileResults ) =
227222if Settings.IntelliSense.ShowAllSymbols
228223then assemblyContentProvider.GetAllEntitiesInProjectAndReferencedAssemblies( fileCheckResults)
229224else []