potential OCE in graph processsing (#17921)

Co-authored-by: Petr <psfinaki@users.noreply.github.com>
dotnet · Oct 25, 2024 · a7b1303 · a7b1303
1 parent 3940e0d
commit a7b1303
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Compiler/Driver/GraphChecking/GraphProcessing.fs b/src/Compiler/Driver/GraphChecking/GraphProcessing.fs
@@ -252,6 +252,7 @@ let processGraphAsync<'Item, 'Result when 'Item: equality and 'Item: comparison>
         let rec queueNode node =
             Async.Start(
                 async {
+                    use! _catch = Async.OnCancel(completionSignal.TrySetCanceled >> ignore)
                     let! res = processNode node |> Async.Catch
 
                     match res with