Cleanup

Author: Omar Tawfik

vsintegration/src/FSharp.Editor/ColorizationService.fs

@@ -162,8 +162,8 @@ type internal FSharpColorizationService() =
                     result.AddRange(extraColorizationData)
                 | None -> ()
             }
-            
+
             Task.Run(CommonRoslynHelpers.GetTaskAction(computation), cancellationToken)
-            
+
         // Do not perform classification if we don't have project options (#defines matter)
         member this.AdjustStaleClassification(_: SourceText, classifiedSpan: ClassifiedSpan) : ClassifiedSpan = classifiedSpan

vsintegration/src/FSharp.Editor/DocumentDifferenceService.fs

@@ -0,0 +1,28 @@
+// Copyright (c) Microsoft Corporation.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+
+namespace Microsoft.VisualStudio.FSharp.Editor
+
+open System
+open System.Composition
+open System.Collections.Immutable
+open System.Threading
+open System.Threading.Tasks
+
+open Microsoft.CodeAnalysis
+open Microsoft.CodeAnalysis.Diagnostics
+open Microsoft.CodeAnalysis.Host.Mef
+open Microsoft.CodeAnalysis.Text
+open Microsoft.CodeAnalysis.SolutionCrawler
+
+open Microsoft.FSharp.Compiler
+open Microsoft.FSharp.Compiler.SourceCodeServices
+open Microsoft.FSharp.Compiler.Range
+
+open Microsoft.VisualStudio.FSharp.LanguageService
+
+[<ExportLanguageService(typeof<IDocumentDifferenceService>, FSharpCommonConstants.FSharpLanguageName)>]
+type FSharpDocumentDifferenceService() =
+    interface IDocumentDifferenceService with
+        member this.GetDifferenceAsync(_,_,_) =
+            // No incremental anaylsis for now.
+            Task.FromResult(new DocumentDifferenceResult(InvocationReasons.DocumentChanged))

vsintegration/src/FSharp.Editor/FSharp.Editor.fsproj

@@ -42,6 +42,9 @@
     <Compile Include="IndentationService.fs">
       <Link>Utilities\IndentationService.fs</Link>
     </Compile>
+    <Compile Include="DocumentDifferenceService.fs">
+      <Link>Utilities\DocumentDifferenceService.fs</Link>
+    </Compile>
     <Compile Include="BreakpointResolutionService.fs">
       <Link>Debugging\BreakpointResolutionService.fs</Link>
     </Compile>

vsintegration/src/FSharp.Editor/IndentationService.fs

@@ -55,7 +55,6 @@ type internal FSharpIndentationService() =
             let optionsTask = document.GetOptionsAsync(cancellationToken)
             optionsTask.Wait(cancellationToken)
             let options = CommonRoslynHelpers.GetCompletedTaskResult(optionsTask)
-
             let tabSize = options.GetOption(FormattingOptions.TabSize, FSharpCommonConstants.FSharpLanguageName)
 
             match FSharpIndentationService.GetDesiredIndentation(sourceText, lineNumber, tabSize) with

vsintegration/src/FSharp.Editor/LanguageService.fs

@@ -59,7 +59,7 @@ type internal FSharpLanguageService(package : FSharpPackage) =
     override this.SetupNewTextView(view) =
         base.SetupNewTextView(view)
         let workspace = this.Package.ComponentModel.GetService<VisualStudioWorkspaceImpl>();
-                    
+
         // FSROSLYNTODO: Hide navigation bars for now. Enable after adding tests
         workspace.Options <- workspace.Options.WithChangedOption(NavigationBarOptions.ShowNavigationBar, FSharpCommonConstants.FSharpLanguageName, false)
 

vsintegration/src/FSharp.ProjectSystem.Base/Project/HierarchyNode.cs

@@ -3033,7 +3033,7 @@ internal string GetTargetFrameworkMoniker()
 
         internal string GetProjectGuid()
         {
-            string guid = projectMgr.GetProjectProperty(ProjectFileConstants.ProjectGuid) as String;
+            string guid = projectMgr.GetProjectProperty(ProjectFileConstants.ProjectGuid) as string;
             Debug.Assert(!String.IsNullOrEmpty(guid), "No project guid?");
             return guid;
         }