From da852e6f250fad3e46c61388b40cf01e5474c0f5 Mon Sep 17 00:00:00 2001
From: Alex Berezhnykh <alexey.berezhnykh@jetbrains.com>
Date: Fri, 18 Mar 2022 16:09:43 +0300
Subject: [PATCH] invalidate typecheck cache when invalidating a configuration

---
 src/fsharp/service/service.fs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/fsharp/service/service.fs b/src/fsharp/service/service.fs
index 91537a49e3f..c18c9486bc1 100644
--- a/src/fsharp/service/service.fs
+++ b/src/fsharp/service/service.fs
@@ -928,6 +928,10 @@ type BackgroundCompiler(
             
     member bc.InvalidateConfiguration(options: FSharpProjectOptions, userOpName) =
         if incrementalBuildersCache.ContainsSimilarKey (AnyCallerThread, options) then
+            parseCacheLock.AcquireLock(fun ltok -> 
+                for sourceFile in options.SourceFiles do
+                    checkFileInProjectCache.RemoveAnySimilar(ltok, (sourceFile, 0L, options))
+            )
             let _ = createBuilderNode (options, userOpName, CancellationToken.None)
             ()