Adaptive refactorings and fixing code lens reference setting (#1052)

ionide · Feb 4, 2023 · 78d1fd4 · 78d1fd4
1 parent 63e5bbd
commit 78d1fd4
Show file tree

Hide file tree

Showing 4 changed files with 224 additions and 227 deletions.
diff --git a/src/FsAutoComplete.Core/CompilerServiceInterface.fs b/src/FsAutoComplete.Core/CompilerServiceInterface.fs
@@ -244,9 +244,8 @@ type FSharpCompilerServiceChecker(hasAnalyzers) =
 
   /// This function is called when the entire environment is known to have changed for reasons not encoded in the ProjectOptions of any project/compilation.
   member _.ClearCaches() =
-    let oldlastCheckResults = lastCheckResults
+    lastCheckResults.Dispose()
     lastCheckResults <- memoryCache ()
-    oldlastCheckResults.Dispose()
     checker.InvalidateAll()
     checker.ClearLanguageServiceRootCachesAndCollectAndFinalizeAllTransients()
 

diff --git a/src/FsAutoComplete.Core/Utils.fs b/src/FsAutoComplete.Core/Utils.fs
@@ -503,6 +503,12 @@ module List =
   let maxUnderThreshold nmax =
     List.maxBy (fun n -> if n > nmax then 0 else n)
 
+  /// Groups a tupled list by the first item to produce a list of values
+  let groupByFst (tupledItems: ('Key * 'Value) list) =
+    tupledItems
+    |> List.groupBy (fst)
+    |> List.map (fun (key, list) -> key, list |> List.map snd)
+