let!options= projectInfoManager.TryGetOptionsForEditingDocumentOrProject context.Document

letdocument= context.Document

let!options= projectInfoManager.TryGetOptionsForEditingDocumentOrProject document

let!sourceText= context.Document.GetTextAsync(context.CancellationToken)

let!_,parsedInput,checkResults= checker.ParseAndCheckDocument(context.Document, options, allowStaleResults=true, sourceText= sourceText)

let!_,parsedInput,checkResults= checker.ParseAndCheckDocument(document, options, allowStaleResults=true, sourceText= sourceText)

letline= sourceText.Lines.GetLineFromPosition(context.Span.End)

letlinePos= sourceText.Lines.GetLinePosition(context.Span.End)

letdefines= CompilerEnvironment.GetCompilationDefinesForEditing(document.Name, options.OtherOptions|> Seq.toList)

let!lexerSymbol= CommonHelpers.getSymbolAtPosition(document.Id, sourceText, context.Span.End, document.FilePath, defines, SymbolLookupKind.Greedy)

return! checkResults.GetSymbolUseAtLocation(Line.fromZ linePos.Line, lexerSymbol.Ident.idRange.EndColumn, line.ToString(), lexerSymbol.FullIsland)

}|> liftAsync

do! Option.guard symbol.IsNone

letstartLinePos= sourceText.Lines.GetLinePosition context.Span.Start

letstartPos= Pos.fromZ startLinePos.Line startLinePos.Character

|> List.collect(fun e->

[yield e.TopRequireQualifiedAccessParent, e.AutoOpenParent, e.Namespace, e.CleanedIdents

if isAttributethen

letlastIdent= e.CleanedIdents.[e.CleanedIdents.Length-1]

if lastIdent.EndsWith"Attribute"&& e.Kind LookupType.Precise= EntityKind.Attributethen

e.TopRequireQualifiedAccessParent,

e.AutoOpenParent,

e.Namespace,

e.CleanedIdents

|> Array.replace(e.CleanedIdents.Length-1)(lastIdent.Substring(0, lastIdent.Length-9))])

letlastIdent= e.CleanedIdents.[e.CleanedIdents.Length-1]

if lastIdent.EndsWith"Attribute"&& e.Kind LookupType.Precise= EntityKind.Attributethen

e.TopRequireQualifiedAccessParent,

e.AutoOpenParent,

e.Namespace,

e.CleanedIdents

|> Array.replace(e.CleanedIdents.Length-1)(lastIdent.Substring(0, lastIdent.Length-9))])

letlongIdent= ParsedInput.getLongIdentAt parsedInput unresolvedIdentRange.End

lettextLine= sourceText.Lines.GetLineFromPosition(position)

lettextLinePos= sourceText.Lines.GetLinePosition(position)

letfcsTextLineNumber=textLinePos.Line+1// Roslyn line numbers are zero-based, FSharp.Compiler.Service line numbers are 1-based

letfcsTextLineNumber= Line.fromZ textLinePos.Line

let!symbol= CommonHelpers.getSymbolAtPosition(documentKey, sourceText, position, filePath, defines, SymbolLookupKind.Greedy)

let!_,_,checkFileResults= checker.ParseAndCheckDocument(filePath, textVersionHash, sourceText.ToString(), options, allowStaleResults=true)

let!declarations= checkFileResults.GetDeclarationLocationAlternate(fcsTextLineNumber, symbol.Ident.idRange.EndColumn, textLine.ToString(), symbol.FullIsland,false)|> liftAsync