Skip to content

Commit 5427488

Browse files
Fix file ordering when getting script options
1 parent e3afab2 commit 5427488

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

src/fsharp/CompileOps.fs

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5005,7 +5005,8 @@ module private ScriptPreprocessClosure =
50055005
[ClosedSourceFile(filename,m,None,[],[],[])] // Don't traverse into .fs leafs.
50065006

50075007
let loadedSources = (!tcConfig).GetAvailableLoadedSources() |> List.rev |> List.map AddFileIfNotSeen |> List.concat
5008-
ClosedSourceFile(filename,m,Some(input),!errors,!warnings,!noWarns) :: loadedSources |> List.map FindClosure |> List.concat // Final closure is in reverse order. Keep the closed source at the top.
5008+
(loadedSources |> List.map FindClosure |> List.concat)
5009+
@ [ClosedSourceFile(filename,m,Some(input),!errors,!warnings,!noWarns)]
50095010
| None -> [ClosedSourceFile(filename,m,None,!errors,!warnings,[])]
50105011

50115012
closureDirectives |> List.map FindClosure |> List.concat, !tcConfig
@@ -5067,7 +5068,7 @@ module private ScriptPreprocessClosure =
50675068
let rootWarnings = rootWarnings |> List.filter isRootRange
50685069

50695070
let result : LoadClosure =
5070-
{ SourceFiles = List.groupByFirst !sourceFiles
5071+
{ SourceFiles = List.groupByFirst !sourceFiles |> List.rev
50715072
References = List.groupByFirst references
50725073
UnresolvedReferences = unresolvedReferences
50735074
Inputs = !sourceInputs

0 commit comments

Comments
 (0)