let!symbolUse,sigQuickInfo,targetQuickInfo= FSharpQuickInfo.getQuickInfo(checkerProvider.Checker, projectInfoManager, document, triggerPoint.Position, cancellationToken)

textBuffer.CurrentSnapshot.CreateTrackingSpan(span.Start, span.Length, SpanTrackingMode.EdgeInclusive)

letlineBreak= TaggedTextOps.Literals.lineBreak

match segments|> List.filter(Seq.isEmpty>>not)with

|[]-> Seq.empty

| xs-> xs|> List.reduce(fun acc elem->seq{yield! acc;yield lineBreak;yield! elem})

match sigQuickInfo, targetQuickInfowith

| None, None->returnnull

XmlDocumentation.BuildDataTipText(documentationBuilder, mainDescription.Add, documentation.Add, typeParameterMap.Add, usage.Add, exceptions.Add, quickInfo.StructuredText)

letimageId= Tokenizer.GetImageIdForSymbol(quickInfo.Symbol, quickInfo.SymbolKind)

letnavigation= QuickInfoNavigation(gotoDefinitionService, document, symbolUse.RangeAlternate)

letcontent= QuickInfoViewProvider.provideContent(imageId, mainDescription, documentation, typeParameterMap, usage, exceptions, navigation)

letdocs= joinWithLineBreaks[documentation; typeParameterMap; usage; exceptions]

letcontent= QuickInfoViewProvider.provideContent(imageId, mainDescription, docs, navigation)

letspan= getTrackingSpan quickInfo.Span

return QuickInfoItem(span, content)

| Some sigQuickInfo, Some targetQuickInfo->

letmainDescription,targetDocumentation,sigDocumentation,typeParameterMap,exceptions,usage= ResizeArray(), ResizeArray(), ResizeArray(), ResizeArray(), ResizeArray(), ResizeArray()

XmlDocumentation.BuildDataTipText(documentationBuilder, ignore, sigDocumentation.Add, ignore, ignore, ignore, sigQuickInfo.StructuredText)

XmlDocumentation.BuildDataTipText(documentationBuilder, mainDescription.Add, targetDocumentation.Add, typeParameterMap.Add, exceptions.Add, usage.Add, targetQuickInfo.StructuredText)

mainDescription

|> Seq.append targetDocumentation

|> Seq.append exceptions

|> Seq.append usage

|> Seq.append sigDocumentation

|> Seq.append typeParameterMap

|> Seq.map(fun x-> x.Text.Length)

|> Seq.max

letwidth=if width/2>85then85else width/2

letseperator= TaggedTextOps.tag Text(String.replicate width"⎯")

letlineBreak= TaggedTextOps.tag LineBreak"\n"

| Some implText, Some sigTextwhen implText.Equals(sigText, StringComparison.OrdinalIgnoreCase)->

yield! sigDocumentation

| Some_, Some_->

yield! sigDocumentation

yield lineBreak

yield seperator

yield lineBreak

yield! targetDocumentation]

|> ResizeArray

yield! joinWithLineBreaks[ sigDocumentation;[ TaggedTextOps.tagText"-------------"]; targetDocumentation]

]|> ResizeArray

letdocs= joinWithLineBreaks[documentation; typeParameterMap; usage; exceptions]

letimageId= Tokenizer.GetImageIdForSymbol(targetQuickInfo.Symbol, targetQuickInfo.SymbolKind)

letnavigation= QuickInfoNavigation(gotoDefinitionService, document, symbolUse.RangeAlternate)

letcontent= QuickInfoViewProvider.provideContent(imageId, mainDescription,documentation, typeParameterMap, usage, exceptions, navigation)

letcontent= QuickInfoViewProvider.provideContent(imageId, mainDescription,docs, navigation)

letspan= getTrackingSpan targetQuickInfo.Span

return QuickInfoItem(span, content)

}|> Async.map Option.toObj

description:#seq<Layout.TaggedText>,

documentation:#seq<Layout.TaggedText>,

typeParameterMap:#seq<Layout.TaggedText>,

usage:#seq<Layout.TaggedText>,

exceptions:#seq<Layout.TaggedText>,

currentContainerItems.Add(navigableTextRun:> obj)

|_when item.Tag= LineBreak->

flushRuns()

if currentContainerItems.Count=0then

runsCollection.Add(ClassifiedTextRun(PredefinedClassificationTypeNames.Other, System.String.Empty))

flushRuns()

flushContainer()

letnewRun= ClassifiedTextRun(classificationTag, item.Text)

runsCollection.Add(newRun)

runsCollection.Add(newRun)

flushRuns()

flushContainer()

finalCollection|>List.ofSeq

ContainerElement(ContainerElementStyle.Stacked,finalCollection|>Seq.map box)

[ description

documentation

typeParameterMap

usage

exceptions]

|> List.filter(Seq.isEmpty>>not)

|> List.map buildContainerElement

|> List.concat

|> List.map(fun x-> x:> obj)

|>(fun e-> ContainerElement(ContainerElementStyle.Stacked, e))

ContainerElement(

ContainerElementStyle.Wrapped,

[(ImageElement(imageId):> obj); elements:> obj])

ContainerElement(ContainerElementStyle.Stacked,

ContainerElement(ContainerElementStyle.Wrapped,

ImageElement(imageId),

buildContainerElement description),

buildContainerElement documentation