Fix build

safesparrow · safesparrow · commit f9745ed87bab · 2022-11-19T17:04:05.000Z
diff --git a/src/Compiler/Driver/ParseAndCheckInputs.fs b/src/Compiler/Driver/ParseAndCheckInputs.fs
@@ -759,29 +759,17 @@ let ParseInputFilesInParallel (tcConfig: TcConfig, lexResourceManager, sourceFil
     for fileName in sourceFiles do
         checkInputFile tcConfig fileName
 
-    // Order files to be parsed by size (descending). The idea is to process big files first,
-    // so that near the end when only some nodes are still processing items, it's the smallest items,
-    // which should reduce the period of time where only some nodes are busy.
-    // This requires some empirical evidence.
-    let sourceFiles =
-        sourceFiles
-        |> List.mapi (fun i f -> i, f)
-        |> List.sortBy (fun (_i, f) -> -FileInfo(f).Length)
-
     let sourceFiles = List.zip sourceFiles isLastCompiland
 
     UseMultipleDiagnosticLoggers (sourceFiles, delayLogger, None) (fun sourceFilesWithDelayLoggers ->
         sourceFilesWithDelayLoggers
-        |> ListParallel.map (fun (((idx, fileName), isLastCompiland), delayLogger) ->
+        |> ListParallel.map (fun ((fileName, isLastCompiland), delayLogger) ->
             let directoryName = Path.GetDirectoryName fileName
 
             let input =
                 parseInputFileAux (tcConfig, lexResourceManager, fileName, (isLastCompiland, isExe), delayLogger, retryLocked)
 
-            idx, (input, directoryName))
-        // Bring back index-based order
-        |> List.sortBy fst
-        |> List.map snd)
+            (input, directoryName)))
 
 let ParseInputFilesSequential (tcConfig: TcConfig, lexResourceManager, sourceFiles, diagnosticsLogger: DiagnosticsLogger, retryLocked) =
     let isLastCompiland, isExe = sourceFiles |> tcConfig.ComputeCanContainEntryPoint
