Skip to content

Commit 2b8201d

Browse files
committed
Set Cancellable.Token in transparent compiler
1 parent 42d76ef commit 2b8201d

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

src/Compiler/Service/TransparentCompiler.fs

+4
Original file line numberDiff line numberDiff line change
@@ -611,6 +611,8 @@ type internal TransparentCompiler
611611
caches.FrameworkImports.Get(
612612
key,
613613
async {
614+
use! _holder = Cancellable.UseToken()
615+
614616
use _ = Activity.start "ComputeFrameworkImports" []
615617
let tcConfigP = TcConfigProvider.Constant tcConfig
616618

@@ -635,6 +637,8 @@ type internal TransparentCompiler
635637
) =
636638

637639
async {
640+
use! _holder = Cancellable.UseToken()
641+
638642
let diagnosticsLogger =
639643
CompilationDiagnosticLogger("CombineImportedAssembliesTask", tcConfig.diagnosticsOptions)
640644

0 commit comments

Comments
 (0)