Fix build after merge

safesparrow · Dec 7, 2022 · 881f572 · 881f572
1 parent 6a500d4
commit 881f572
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 8 deletions.
diff --git a/src/Compiler/Driver/ParseAndCheckInputs.fs b/src/Compiler/Driver/ParseAndCheckInputs.fs
@@ -4,12 +4,10 @@
 module internal FSharp.Compiler.ParseAndCheckInputs
 
 open System
-open System.Collections.Concurrent
 open System.Diagnostics
 open System.IO
 open System.Collections.Generic
 
-open System.Threading
 open Internal.Utilities.Collections
 open Internal.Utilities.Library
 open Internal.Utilities.Library.Extras
@@ -1465,7 +1463,8 @@ let CheckOneInputAux'
                          checkForErrors,
                          conditionalDefines,
                          tcSink,
-                         tcConfig.internalTestSpanStackReferring)
+                         tcConfig.internalTestSpanStackReferring,
+                         tcConfig.diagnosticsOptions)
                         tcState.tcsTcSigEnv
                         file
 
@@ -1534,7 +1533,8 @@ let CheckOneInputAux'
                         tcConfig.internalTestSpanStackReferring,
                         tcState.tcsTcImplEnv,
                         rootSigOpt,
-                        file
+                        file,
+                        tcConfig.diagnosticsOptions
                     )
 
                 // printfn $"Finished Processing Impl {file.FileName}"

diff --git a/tests/ParallelTypeCheckingTests/Code/FileContentMapping.fs b/tests/ParallelTypeCheckingTests/Code/FileContentMapping.fs
@@ -264,10 +264,6 @@ let visitSynType (t: SynType) : FileContentEntry list =
         | SynType.WithGlobalConstraints (typeName, constraints, _) ->
             visit typeName (fun nodes -> nodes @ lc visitSynTypeConstraint constraints |> continuation)
         | SynType.HashConstraint (innerType, _) -> visit innerType continuation
-        | SynType.MeasureDivide (dividend, divisor, _) ->
-            let continuations = List.map visit [ dividend; divisor ]
-            let finalContinuation = lc id >> continuation
-            Continuation.sequence continuations finalContinuation
         | SynType.MeasurePower (baseMeasure = baseMeasure) -> visit baseMeasure continuation
         | SynType.StaticConstant _ -> continuation []
         | SynType.StaticConstantExpr (expr, _) -> continuation (visitSynExpr expr)