diff --git a/vsintegration/src/FSharp.Editor/Commands/HelpContextService.fs b/vsintegration/src/FSharp.Editor/Commands/HelpContextService.fs index 2d836c66aa2..0105aaa9abe 100644 --- a/vsintegration/src/FSharp.Editor/Commands/HelpContextService.fs +++ b/vsintegration/src/FSharp.Editor/Commands/HelpContextService.fs @@ -95,8 +95,8 @@ type internal FSharpHelpContextService } interface IHelpContextService with - member this.Language = FSharpCommonConstants.FSharpLanguageName - member this.Product = FSharpCommonConstants.FSharpLanguageName + member this.Language = FSharpCommonConstants.FSharpLanguageLongName + member this.Product = FSharpCommonConstants.FSharpLanguageLongName member this.GetHelpTermAsync(document, textSpan, cancellationToken) = asyncMaybe { diff --git a/vsintegration/src/FSharp.Editor/Common/CommonConstants.fs b/vsintegration/src/FSharp.Editor/Common/CommonConstants.fs index 8640bdca211..82b5ec35a4a 100644 --- a/vsintegration/src/FSharp.Editor/Common/CommonConstants.fs +++ b/vsintegration/src/FSharp.Editor/Common/CommonConstants.fs @@ -23,3 +23,5 @@ module internal FSharpCommonConstants = let FSharpSignatureHelpContentTypeName = "F# Signature Help" [] let FSharpLanguageServiceCallbackName = "F# Language Service" + [] + let FSharpLanguageLongName = "FSharp" \ No newline at end of file