typePerDocumentSavedData={ Hash:int; Items:Index.IIndexedNavigableItems}

checkerProvider: FSharpCheckerProvider,

projectInfoManager: FSharpProjectOptionsManager

letkindsProvided= ImmutableHashSet.Create(NavigateToItemKind.Module, NavigateToItemKind.Class, NavigateToItemKind.Field, NavigateToItemKind.Property, NavigateToItemKind.Method, NavigateToItemKind.Enum, NavigateToItemKind.EnumItem):> IImmutableSet<string>

letitemsByDocumentId=new MemoryCache("FSharp.Editor.FSharpNavigateToSearchService")

let!cancellationToken= Async.CancellationToken

let!sourceText= document.GetTextAsync(cancellationToken)|> Async.AwaitTask

let!parseResults= checkerProvider.Checker.ParseFile(document.FilePath, sourceText.ToString(), parsingOptions)

NavigateTo.getNavigableItems parsedInput

|> Array.filter(fun i-> kinds.Contains(navigateToItemKindToRoslynKind i.Kind))

match parseResults.ParseTree|> Option.mapNavigateTo.getNavigableItemswith

match parseResults.ParseTree|> Option.mapnavItemswith

| Some items->

[|for itemin itemsdo

match RoslynHelpers.TryFSharpRangeToTextSpan(sourceText, item.Range)with

| None->[||]

let!cancellationToken= Async.CancellationToken

let!textVersion= document.GetTextVersionAsync(cancellationToken)|> Async.AwaitTask

match itemsByDocumentId.Get(key)with

|:? PerDocumentSavedData as data when data.Hash= textVersionHash-> return data.Items

let!items= getNavigableItems(document, parsingOptions)

let!items= getNavigableItems(document, parsingOptions, kinds)

letindexedItems= Index.build items

letdata={ Hash= textVersionHash; Items= indexedItems}

letcacheItem= CacheItem(key, data)

| PatternMatchKind.Fuzzy-> NavigateToMatchKind.Regular

|_-> NavigateToMatchKind.Regular

let!parsingOptions,_site,_options= projectInfoManager.TryGetOptionsForProject(project.Id)

project.Documents

|> Seq.map(fun document-> getCachedIndexedNavigableItems(document, parsingOptions))

|> Seq.map(fun document-> getCachedIndexedNavigableItems(document, parsingOptions, kinds))

|> Async.Parallel

|> liftAsync

if searchPattern.Length=1then

items

|> Array.map(fun items-> items.Find(searchPattern))

|> Array.map(fun items-> items.Find(searchPattern))

|> Array.concat

|> Array.filter(fun x-> x.Name.Length=1&& String.Equals(x.Name, searchPattern, StringComparison.InvariantCultureIgnoreCase))

|> Async.map Seq.toImmutableArray

|> RoslynHelpers.StartAsyncAsTask(cancellationToken)

let!parsingOptions,_,_= projectInfoManager.TryGetOptionsForDocumentOrProject(document)

let!items= getCachedIndexedNavigableItems(document, parsingOptions)|> liftAsync

let!items= getCachedIndexedNavigableItems(document, parsingOptions, kinds)|> liftAsync

return items.Find(searchPattern)

|> Async.map(Option.defaultValue[||])

|> Async.map Seq.toImmutableArray

|> RoslynHelpers.StartAsyncAsTask(cancellationToken)

|> RoslynHelpers.StartAsyncAsTask(cancellationToken)

member__.KindsProvided= kindsProvided