Merge master into vs2017-rtm (dotnet#3458)

brettfo · KevinRansom · commit 1a4d2518186e · 2017-08-17T15:48:37.000-07:00
* Document project options and mark lots of things as deprecated (dotnet#3449) * Document project options and mark lots of things as deprecated * delete some code that is no longer used * fix packaging of FSharp.Core. (dotnet#3452) * implement IDisposable interfaces explicitly (dotnet#3447) * added IDisposable * reverted Dispose change * ngen open source install (dotnet#3456) * handle "Blue (high contrast)" theme (dotnet#3443)
diff --git a/Classification/ClassificationDefinitions.fs b/Classification/ClassificationDefinitions.fs
@@ -65,7 +65,7 @@ module internal ClassificationDefinitions =
         ) =
 
         let (| LightTheme | DarkTheme | UnknownTheme |) id =
-            if id = KnownColorThemes.Light || id = KnownColorThemes.Blue then LightTheme 
+            if id = KnownColorThemes.Light || id = KnownColorThemes.Blue || id = Guids.blueHighContrastThemeId then LightTheme 
             elif id = KnownColorThemes.Dark then DarkTheme
             else UnknownTheme
     
diff --git a/Classification/ColorizationService.fs b/Classification/ColorizationService.fs
@@ -21,7 +21,7 @@ type internal FSharpColorizationService
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     static let userOpName = "SemanticColorization"
 
diff --git a/CodeFix/AddOpenCodeFixProvider.fs b/CodeFix/AddOpenCodeFixProvider.fs
@@ -22,7 +22,7 @@ type internal FSharpAddOpenCodeFixProvider
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider, 
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         assemblyContentProvider: AssemblyContentProvider
     ) =
     inherit CodeFixProvider()
diff --git a/CodeFix/ImplementInterfaceCodeFixProvider.fs b/CodeFix/ImplementInterfaceCodeFixProvider.fs
@@ -29,7 +29,7 @@ type internal FSharpImplementInterfaceCodeFixProvider
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider, 
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     inherit CodeFixProvider()
     let fixableDiagnosticIds = ["FS0366"]
diff --git a/CodeFix/ProposeUppercaseLabel.fs b/CodeFix/ProposeUppercaseLabel.fs
@@ -12,7 +12,7 @@ type internal FSharpProposeUpperCaseLabelCodeFixProvider
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider, 
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     inherit CodeFixProvider()
     let fixableDiagnosticIds = ["FS0053"]
diff --git a/CodeFix/RemoveUnusedOpens.fs b/CodeFix/RemoveUnusedOpens.fs
@@ -19,7 +19,7 @@ type internal FSharpRemoveUnusedOpensCodeFixProvider
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider, 
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     inherit CodeFixProvider()
     let fixableDiagnosticIds = [IDEDiagnosticIds.RemoveUnnecessaryImportsDiagnosticId]
diff --git a/CodeFix/RenameUnusedValue.fs b/CodeFix/RenameUnusedValue.fs
@@ -20,7 +20,7 @@ type internal FSharpRenameUnusedValueCodeFixProvider
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider, 
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     
     inherit CodeFixProvider()
diff --git a/Commands/HelpContextService.fs b/Commands/HelpContextService.fs
@@ -19,7 +19,7 @@ type internal FSharpHelpContextService
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
 
     static let userOpName = "ImplementInterfaceCodeFix"
diff --git a/Commands/XmlDocCommandService.fs b/Commands/XmlDocCommandService.fs
@@ -21,7 +21,7 @@ type internal XmlDocCommandFilter
         wpfTextView: IWpfTextView, 
         filePath: string, 
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         workspace: VisualStudioWorkspaceImpl
      ) =
 
@@ -117,7 +117,7 @@ type internal XmlDocCommandFilter
 type internal XmlDocCommandFilterProvider 
     [<ImportingConstructor>] 
     (checkerProvider: FSharpCheckerProvider,
-     projectInfoManager: ProjectInfoManager,
+     projectInfoManager: FSharpProjectOptionsManager,
      workspace: VisualStudioWorkspaceImpl,
      textDocumentFactoryService: ITextDocumentFactoryService,
      editorFactory: IVsEditorAdaptersFactoryService) =
diff --git a/Common/Constants.fs b/Common/Constants.fs
@@ -72,3 +72,5 @@ module internal Guids =
     [<Literal>]
     /// "8FDA964A-263D-4B4E-9560-29897535217C"
     let languageServicePerformanceOptionPageIdString = "8FDA964A-263D-4B4E-9560-29897535217C"
+
+    let blueHighContrastThemeId = Guid "{ce94d289-8481-498b-8ca9-9b6191a315b9}"
diff --git a/Completion/CompletionProvider.fs b/Completion/CompletionProvider.fs
@@ -27,7 +27,7 @@ type internal FSharpCompletionProvider
         workspace: Workspace,
         serviceProvider: SVsServiceProvider,
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         assemblyContentProvider: AssemblyContentProvider
     ) =
 
@@ -231,7 +231,7 @@ type internal FSharpCompletionProvider
                 let documentation = List()
                 let collector = RoslynHelpers.CollectTaggedText documentation
                 // mix main description and xmldoc by using one collector
-                XmlDocumentation.BuildDataTipText(documentationBuilder, collector, collector, description) 
+                XmlDocumentation.BuildDataTipText(documentationBuilder, collector, collector, collector, collector, collector, description) 
                 return CompletionDescription.Create(documentation.ToImmutableArray())
             else
                 return CompletionDescription.Empty
diff --git a/Completion/CompletionService.fs b/Completion/CompletionService.fs
@@ -17,7 +17,7 @@ type internal FSharpCompletionService
         workspace: Workspace,
         serviceProvider: SVsServiceProvider,
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         assemblyContentProvider: AssemblyContentProvider
     ) =
     inherit CompletionServiceWithProviders(workspace)
@@ -47,7 +47,7 @@ type internal FSharpCompletionServiceFactory
     (
         serviceProvider: SVsServiceProvider,
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         assemblyContentProvider: AssemblyContentProvider
     ) =
     interface ILanguageServiceFactory with
diff --git a/Completion/FileSystemCompletion.fs b/Completion/FileSystemCompletion.fs
@@ -22,7 +22,7 @@ type internal Completion =
           AllowableExtensions = allowableExtensions
           UseIncludeDirectives = useIncludeDirectives }
 
-type internal HashDirectiveCompletionProvider(workspace: Workspace, projectInfoManager: ProjectInfoManager, completions: Completion list) =
+type internal HashDirectiveCompletionProvider(workspace: Workspace, projectInfoManager: FSharpProjectOptionsManager, completions: Completion list) =
     inherit CommonCompletionProvider()
 
     let [<Literal>] NetworkPath = "\\\\"
diff --git a/Completion/SignatureHelp.fs b/Completion/SignatureHelp.fs
@@ -25,7 +25,7 @@ type internal FSharpSignatureHelpProvider
     (
         serviceProvider: SVsServiceProvider,
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
 
     static let userOpName = "SignatureHelpProvider"
diff --git a/Debugging/BreakpointResolutionService.fs b/Debugging/BreakpointResolutionService.fs
@@ -23,7 +23,7 @@ type internal FSharpBreakpointResolutionService
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
 
     static let userOpName = "BreakpointResolution"
diff --git a/Debugging/LanguageDebugInfoService.fs b/Debugging/LanguageDebugInfoService.fs
@@ -18,7 +18,7 @@ open Microsoft.VisualStudio.FSharp.LanguageService
 
 [<Shared>]
 [<ExportLanguageService(typeof<ILanguageDebugInfoService>, FSharpConstants.FSharpLanguageName)>]
-type internal FSharpLanguageDebugInfoService [<ImportingConstructor>](projectInfoManager: ProjectInfoManager) =
+type internal FSharpLanguageDebugInfoService [<ImportingConstructor>](projectInfoManager: FSharpProjectOptionsManager) =
 
     static member GetDataTipInformation(sourceText: SourceText, position: int, tokens: List<ClassifiedSpan>): TextSpan option =
         let tokenIndex = tokens |> Seq.tryFindIndex(fun t -> t.TextSpan.Contains(position))
diff --git a/Diagnostics/DocumentDiagnosticAnalyzer.fs b/Diagnostics/DocumentDiagnosticAnalyzer.fs
@@ -30,7 +30,7 @@ type internal FSharpDocumentDiagnosticAnalyzer() =
         document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().Checker
 
     let getProjectInfoManager(document: Document) =
-        document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().ProjectInfoManager
+        document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().FSharpProjectOptionsManager
     
     static let errorInfoEqualityComparer =
         { new IEqualityComparer<FSharpErrorInfo> with 
diff --git a/Diagnostics/SimplifyNameDiagnosticAnalyzer.fs b/Diagnostics/SimplifyNameDiagnosticAnalyzer.fs
@@ -24,7 +24,7 @@ type internal SimplifyNameDiagnosticAnalyzer() =
     inherit DocumentDiagnosticAnalyzer()
     
     static let userOpName = "SimplifyNameDiagnosticAnalyzer"
-    let getProjectInfoManager (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().ProjectInfoManager
+    let getProjectInfoManager (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().FSharpProjectOptionsManager
     let getChecker (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().Checker
     let getPlidLength (plid: string list) = (plid |> List.sumBy String.length) + plid.Length
     static let cache = ConditionalWeakTable<DocumentId, TextVersionHash * ImmutableArray<Diagnostic>>()
diff --git a/Diagnostics/UnusedDeclarationsAnalyzer.fs b/Diagnostics/UnusedDeclarationsAnalyzer.fs
@@ -17,7 +17,7 @@ type internal UnusedDeclarationsAnalyzer() =
     inherit DocumentDiagnosticAnalyzer()
     
     static let userOpName = "UnusedDeclarationsAnalyzer"
-    let getProjectInfoManager (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().ProjectInfoManager
+    let getProjectInfoManager (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().FSharpProjectOptionsManager
     let getChecker (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().Checker
     let [<Literal>] DescriptorId = "FS1182"
     
diff --git a/Diagnostics/UnusedOpensDiagnosticAnalyzer.fs b/Diagnostics/UnusedOpensDiagnosticAnalyzer.fs
@@ -143,7 +143,7 @@ module private UnusedOpens =
 type internal UnusedOpensDiagnosticAnalyzer() =
     inherit DocumentDiagnosticAnalyzer()
     
-    let getProjectInfoManager (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().ProjectInfoManager
+    let getProjectInfoManager (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().FSharpProjectOptionsManager
     let getChecker (document: Document) = document.Project.Solution.Workspace.Services.GetService<FSharpCheckerWorkspaceService>().Checker
 
     static let userOpName = "UnusedOpensAnalyzer"
diff --git a/DocumentHighlights/DocumentHighlightsService.fs b/DocumentHighlights/DocumentHighlightsService.fs
@@ -23,7 +23,7 @@ type internal FSharpHighlightSpan =
 
 [<Shared>]
 [<ExportLanguageService(typeof<IDocumentHighlightsService>, FSharpConstants.FSharpLanguageName)>]
-type internal FSharpDocumentHighlightsService [<ImportingConstructor>] (checkerProvider: FSharpCheckerProvider, projectInfoManager: ProjectInfoManager) =
+type internal FSharpDocumentHighlightsService [<ImportingConstructor>] (checkerProvider: FSharpCheckerProvider, projectInfoManager: FSharpProjectOptionsManager) =
 
     static let userOpName = "DocumentHighlights"
 
diff --git a/Formatting/BraceMatchingService.fs b/Formatting/BraceMatchingService.fs
@@ -12,7 +12,7 @@ type internal FSharpBraceMatchingService
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
 
     static let userOpName = "BraceMatching"
diff --git a/Formatting/IndentationService.fs b/Formatting/IndentationService.fs
@@ -18,7 +18,7 @@ open Microsoft.FSharp.Compiler.SourceCodeServices
 [<ExportLanguageService(typeof<ISynchronousIndentationService>, FSharpConstants.FSharpLanguageName)>]
 type internal FSharpIndentationService
     [<ImportingConstructor>]
-    (projectInfoManager: ProjectInfoManager) =
+    (projectInfoManager: FSharpProjectOptionsManager) =
 
     static member GetDesiredIndentation(documentId: DocumentId, sourceText: SourceText, filePath: string, lineNumber: int, tabSize: int, optionsOpt: FSharpProjectOptions option): Option<int> =
         // Match indentation with previous line
diff --git a/InlineRename/InlineRenameService.fs b/InlineRename/InlineRenameService.fs
@@ -73,7 +73,7 @@ type internal InlineRenameLocationSet(locationsByDocument: DocumentLocations [],
 type internal InlineRenameInfo
     (
         checker: FSharpChecker,
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         document: Document,
         triggerSpan: TextSpan, 
         lexerSymbol: LexerSymbol,
@@ -141,13 +141,13 @@ type internal InlineRenameInfo
 type internal InlineRenameService 
     [<ImportingConstructor>]
     (
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         checkerProvider: FSharpCheckerProvider,
         [<ImportMany>] _refactorNotifyServices: seq<IRefactorNotifyService>
     ) =
 
     static let userOpName = "InlineRename"
-    static member GetInlineRenameInfo(checker: FSharpChecker, projectInfoManager: ProjectInfoManager, document: Document, sourceText: SourceText, position: int, 
+    static member GetInlineRenameInfo(checker: FSharpChecker, projectInfoManager: FSharpProjectOptionsManager, document: Document, sourceText: SourceText, position: int, 
                                       defines: string list, options: FSharpProjectOptions) : Async<IInlineRenameInfo option> = 
         asyncMaybe {
             let textLine = sourceText.Lines.GetLineFromPosition(position)
diff --git a/LanguageService/LanguageService.fs b/LanguageService/LanguageService.fs
@@ -77,12 +77,20 @@ type internal FSharpCheckerProvider
 
     member this.Checker = checker.Value
 
+
+
 /// A value and a function to recompute/refresh the value.  The function is passed a flag indicating if a refresh is happening.
 type Refreshable<'T> = 'T * (bool -> 'T)
 
-// Exposes project information as MEF component
-[<Export(typeof<ProjectInfoManager>); Composition.Shared>]
-type internal ProjectInfoManager 
+/// Exposes FCS FSharpProjectOptions information management as MEF component.
+//
+// This service allows analyzers to get an appropriate FSharpProjectOptions value for a project or single file.
+// It also allows a 'cheaper' route to get the project options relevant to parsing (e.g. the #define values).
+// The main entrypoints are TryGetOptionsForDocumentOrProject and TryGetOptionsForEditingDocumentOrProject.
+
+
+[<Export(typeof<FSharpProjectOptionsManager>); Composition.Shared>]
+type internal FSharpProjectOptionsManager 
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
@@ -202,7 +210,7 @@ type internal ProjectInfoManager
 type internal FSharpCheckerWorkspaceService =
     inherit Microsoft.CodeAnalysis.Host.IWorkspaceService
     abstract Checker: FSharpChecker
-    abstract ProjectInfoManager: ProjectInfoManager
+    abstract FSharpProjectOptionsManager: FSharpProjectOptionsManager
 
 type internal RoamingProfileStorageLocation(keyName: string) =
     inherit OptionStorageLocation()
@@ -222,13 +230,13 @@ type internal FSharpCheckerWorkspaceServiceFactory
     [<Composition.ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     interface Microsoft.CodeAnalysis.Host.Mef.IWorkspaceServiceFactory with
         member this.CreateService(_workspaceServices) =
             upcast { new FSharpCheckerWorkspaceService with
                 member this.Checker = checkerProvider.Checker
-                member this.ProjectInfoManager = projectInfoManager }
+                member this.FSharpProjectOptionsManager = projectInfoManager }
 
 type
     [<Guid(FSharpConstants.packageGuidString)>]
@@ -289,7 +297,7 @@ and
     internal FSharpLanguageService(package : FSharpPackage) =
     inherit AbstractLanguageService<FSharpPackage, FSharpLanguageService>(package)
 
-    let projectInfoManager = package.ComponentModel.DefaultExportProvider.GetExport<ProjectInfoManager>().Value
+    let projectInfoManager = package.ComponentModel.DefaultExportProvider.GetExport<FSharpProjectOptionsManager>().Value
 
     let projectDisplayNameOf projectFileName = 
         if String.IsNullOrWhiteSpace projectFileName then projectFileName
diff --git a/LanguageService/SymbolHelpers.fs b/LanguageService/SymbolHelpers.fs
@@ -16,7 +16,7 @@ open Microsoft.VisualStudio.FSharp.Editor.Symbols
 
 module internal SymbolHelpers =
     let getSymbolUsesInSolution (symbol: FSharpSymbol, declLoc: SymbolDeclarationLocation, checkFileResults: FSharpCheckFileResults,
-                                 projectInfoManager: ProjectInfoManager, checker: FSharpChecker, solution: Solution, userOpName) =
+                                 projectInfoManager: FSharpProjectOptionsManager, checker: FSharpChecker, solution: Solution, userOpName) =
         async {
             let! symbolUses =
                 match declLoc with
@@ -63,7 +63,7 @@ module internal SymbolHelpers =
 
     type OriginalText = string
 
-    let changeAllSymbolReferences (document: Document, symbolSpan: TextSpan, textChanger: string -> string, projectInfoManager: ProjectInfoManager, checker: FSharpChecker, userOpName)
+    let changeAllSymbolReferences (document: Document, symbolSpan: TextSpan, textChanger: string -> string, projectInfoManager: FSharpProjectOptionsManager, checker: FSharpChecker, userOpName)
         : Async<(Func<CancellationToken, Task<Solution>> * OriginalText) option> =
         asyncMaybe {
             do! Option.guard (symbolSpan.Length > 0)
diff --git a/Navigation/FindUsagesService.fs b/Navigation/FindUsagesService.fs
@@ -20,7 +20,7 @@ type internal FSharpFindUsagesService
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     
     static let userOpName = "FindUsages"
diff --git a/Navigation/GoToDefinitionService.fs b/Navigation/GoToDefinitionService.fs
@@ -34,7 +34,7 @@ type internal FSharpNavigableItem(document: Document, textSpan: TextSpan) =
         member this.DisplayTaggedParts = ImmutableArray<TaggedText>.Empty
         member this.ChildItems = ImmutableArray<INavigableItem>.Empty
 
-type internal GoToDefinition(checker: FSharpChecker, projectInfoManager: ProjectInfoManager) =
+type internal GoToDefinition(checker: FSharpChecker, projectInfoManager: FSharpProjectOptionsManager) =
 
     static let userOpName = "GoToDefinition"
 
@@ -151,7 +151,7 @@ type internal FSharpGoToDefinitionService
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager,
+        projectInfoManager: FSharpProjectOptionsManager,
         [<ImportMany>] _presenters: IEnumerable<INavigableItemsPresenter>
     ) =
 
diff --git a/Navigation/NavigateToSearchService.fs b/Navigation/NavigateToSearchService.fs
@@ -182,7 +182,7 @@ type internal FSharpNavigateToSearchService
     [<ImportingConstructor>] 
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
 
     let itemsByDocumentId = ConditionalWeakTable<DocumentId, (int * Index.IIndexedNavigableItems)>()
diff --git a/Navigation/NavigationBarItemService.fs b/Navigation/NavigationBarItemService.fs
@@ -23,7 +23,7 @@ type internal FSharpNavigationBarItemService
     [<ImportingConstructor>]
     (
         checkerProvider: FSharpCheckerProvider,
-        projectInfoManager: ProjectInfoManager
+        projectInfoManager: FSharpProjectOptionsManager
     ) =
     
     static let userOpName = "NavigationBarItem"
diff --git a/QuickInfo/QuickInfoProvider.fs b/QuickInfo/QuickInfoProvider.fs
diff --git a/Structure/BlockStructureService.fs b/Structure/BlockStructureService.fs

Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@ type internal FSharpColorizationService`
`21`	`21`	`[<ImportingConstructor>]`
`22`	`22`	`(`
`23`	`23`	`checkerProvider: FSharpCheckerProvider,`
`24`		`- projectInfoManager: ProjectInfoManager`
	`24`	`+ projectInfoManager: FSharpProjectOptionsManager`
`25`	`25`	`) =`
`26`	`26`	`static let userOpName = "SemanticColorization"`
`27`	`27`
Original file line number	Diff line number	Diff line change
`@@ -22,7 +22,7 @@ type internal FSharpAddOpenCodeFixProvider`
`22`	`22`	`[<ImportingConstructor>]`
`23`	`23`	`(`
`24`	`24`	`checkerProvider: FSharpCheckerProvider,`
`25`		`- projectInfoManager: ProjectInfoManager,`
	`25`	`+ projectInfoManager: FSharpProjectOptionsManager,`
`26`	`26`	`assemblyContentProvider: AssemblyContentProvider`
`27`	`27`	`) =`
`28`	`28`	`inherit CodeFixProvider()`
Original file line number	Diff line number	Diff line change
`@@ -29,7 +29,7 @@ type internal FSharpImplementInterfaceCodeFixProvider`
`29`	`29`	`[<ImportingConstructor>]`
`30`	`30`	`(`
`31`	`31`	`checkerProvider: FSharpCheckerProvider,`
`32`		`- projectInfoManager: ProjectInfoManager`
	`32`	`+ projectInfoManager: FSharpProjectOptionsManager`
`33`	`33`	`) =`
`34`	`34`	`inherit CodeFixProvider()`
`35`	`35`	`let fixableDiagnosticIds = ["FS0366"]`
Original file line number	Diff line number	Diff line change
`@@ -12,7 +12,7 @@ type internal FSharpProposeUpperCaseLabelCodeFixProvider`
`12`	`12`	`[<ImportingConstructor>]`
`13`	`13`	`(`
`14`	`14`	`checkerProvider: FSharpCheckerProvider,`
`15`		`- projectInfoManager: ProjectInfoManager`
	`15`	`+ projectInfoManager: FSharpProjectOptionsManager`
`16`	`16`	`) =`
`17`	`17`	`inherit CodeFixProvider()`
`18`	`18`	`let fixableDiagnosticIds = ["FS0053"]`
Original file line number	Diff line number	Diff line change
`@@ -19,7 +19,7 @@ type internal FSharpRemoveUnusedOpensCodeFixProvider`
`19`	`19`	`[<ImportingConstructor>]`
`20`	`20`	`(`
`21`	`21`	`checkerProvider: FSharpCheckerProvider,`
`22`		`- projectInfoManager: ProjectInfoManager`
	`22`	`+ projectInfoManager: FSharpProjectOptionsManager`
`23`	`23`	`) =`
`24`	`24`	`inherit CodeFixProvider()`
`25`	`25`	`let fixableDiagnosticIds = [IDEDiagnosticIds.RemoveUnnecessaryImportsDiagnosticId]`
Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,7 @@ type internal FSharpRenameUnusedValueCodeFixProvider`
`20`	`20`	`[<ImportingConstructor>]`
`21`	`21`	`(`
`22`	`22`	`checkerProvider: FSharpCheckerProvider,`
`23`		`- projectInfoManager: ProjectInfoManager`
	`23`	`+ projectInfoManager: FSharpProjectOptionsManager`
`24`	`24`	`) =`
`25`	`25`
`26`	`26`	`inherit CodeFixProvider()`
Original file line number	Diff line number	Diff line change
`@@ -19,7 +19,7 @@ type internal FSharpHelpContextService`
`19`	`19`	`[<ImportingConstructor>]`
`20`	`20`	`(`
`21`	`21`	`checkerProvider: FSharpCheckerProvider,`
`22`		`- projectInfoManager: ProjectInfoManager`
	`22`	`+ projectInfoManager: FSharpProjectOptionsManager`
`23`	`23`	`) =`
`24`	`24`
`25`	`25`	`static let userOpName = "ImplementInterfaceCodeFix"`