Old IncrementalBuilder: Fix cancellation token not passed to tcExtras

src/Compiler/Service/IncrementalBuild.fs

@@ -316,12 +316,6 @@ type BoundModel private (
                     })
         | _ -> None
 
-    let getTcInfo (typeCheck: GraphNode<TypeCheck>) =
-        async {
-            let! tcInfo , _, _, _, _ = typeCheck.GetOrComputeValue()
-            return tcInfo
-        } |> GraphNode
-
     let getTcInfoExtras (typeCheck: GraphNode<TypeCheck>) =
         async {
             let! _ , sink, implFile, fileName, _ = typeCheck.GetOrComputeValue()
@@ -370,11 +364,15 @@ type BoundModel private (
             return diags
         } |> GraphNode
 
-    let startComputingFullTypeCheck =
+    let getTcInfo (typeCheck: GraphNode<TypeCheck>) =
         async {
-            let! _ = tcInfoExtras.GetOrComputeValue()
-            return! diagnostics.GetOrComputeValue()
-        }
+            let! ct = Async.CancellationToken
+            if not tcInfoExtras.HasValue then
+                // start computing extras, so that typeCheckNode can be GC'd quickly 
+                Async.Start (tcInfoExtras.GetOrComputeValue() |> Async.Catch |> Async.Ignore, ct)
+            let! tcInfo , _, _, _, _ = typeCheck.GetOrComputeValue()
+            return tcInfo
+        } |> GraphNode
 
     let tcInfo, tcInfoExtras =
         match tcStateOpt with
@@ -385,8 +383,6 @@ type BoundModel private (
                 // For skipped implementation sources do full type check only when requested.
                 GraphNode.FromResult tcInfo, tcInfoExtras
             | _ ->
-                // start computing extras, so that typeCheckNode can be GC'd quickly 
-                startComputingFullTypeCheck |> Async.Catch |> Async.Ignore |> Async.Start
                 getTcInfo typeCheckNode, tcInfoExtras
 
     member val Diagnostics = diagnostics