potential OCE in graph processsing (#17921)

majocha · psfinaki · web-flow · commit a7b13037cce7 · 2024-10-25T16:46:45.000+02:00
Co-authored-by: Petr &lt;psfinaki@users.noreply.github.com&gt;
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
