Remove Async.RunSynchronously

ncave · Feb 20, 2025 · be1048d · be1048d
1 parent 27b205e
commit be1048d
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/src/Compiler/Service/FSharpCheckerResults.fs b/src/Compiler/Service/FSharpCheckerResults.fs
@@ -3860,6 +3860,9 @@ type FSharpCheckProjectResults
                 |> Array.toSeq
 #endif //!FABLE_COMPILER
             | Choice2Of2 task ->
+#if FABLE_COMPILER
+                seq {}
+#else
                 Async.RunSynchronously(
                     async {
                         let! tcSymbolUses = task
@@ -3872,6 +3875,7 @@ type FSharpCheckProjectResults
                     },
                     ?cancellationToken = cancellationToken
                 )
+#endif //!FABLE_COMPILER
 
         results
         |> Seq.filter (fun symbolUse -> symbolUse.ItemOccurrence <> ItemOccurrence.RelatedText)
@@ -3890,7 +3894,7 @@ type FSharpCheckProjectResults
 
         let cenv = SymbolEnv(tcGlobals, thisCcu, Some ccuSig, tcImports)
 
-        let tcSymbolUses =
+        let tcSymbolUses : TcSymbolUses seq =
             match builderOrSymbolUses with
             | Choice1Of2 builder ->
 #if FABLE_COMPILER
@@ -3908,7 +3912,12 @@ type FSharpCheckProjectResults
                     | _ -> TcSymbolUses.Empty)
                 |> Array.toSeq
 #endif //!FABLE_COMPILER
-            | Choice2Of2 tcSymbolUses -> Async.RunSynchronously(tcSymbolUses, ?cancellationToken = cancellationToken)
+            | Choice2Of2 tcSymbolUses ->
+#if FABLE_COMPILER
+                seq {}
+#else
+                Async.RunSynchronously(tcSymbolUses, ?cancellationToken = cancellationToken)
+#endif //!FABLE_COMPILER
 
         [|
             for r in tcSymbolUses do