Skip to content

Commit b2dd4fe

Browse files
committed
Update tcSigEnv instead of overriding it in the callback for a signature file.
1 parent 7ce0ec4 commit b2dd4fe

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

src/Compiler/Driver/ParseAndCheckInputs.fs

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1470,6 +1470,8 @@ let CheckOneInputAux'
14701470
// printfn $"Applying Sig {file.FileName}"
14711471
let fsiPartialResult, tcState =
14721472
let rootSigs = Zmap.add qualNameOfFile sigFileType tcState.tcsRootSigs
1473+
let tcSigEnv =
1474+
AddLocalRootModuleOrNamespace TcResultsSink.NoSink tcGlobals amap m tcState.tcsTcSigEnv sigFileType
14731475

14741476
// Add the signature to the signature env (unless it had an explicit signature)
14751477
let ccuSigForFile = CombineCcuContentFragments [ sigFileType; tcState.tcsCcuSig ]
@@ -1478,8 +1480,7 @@ let CheckOneInputAux'
14781480

14791481
let tcState =
14801482
{ tcState with
1481-
tcsTcSigEnv = tcEnv
1482-
tcsTcImplEnv = tcState.tcsTcImplEnv
1483+
tcsTcSigEnv = tcSigEnv
14831484
tcsRootSigs = rootSigs
14841485
tcsCreatesGeneratedProvidedTypes = tcState.tcsCreatesGeneratedProvidedTypes || createsGeneratedProvidedTypes
14851486
}

0 commit comments

Comments
 (0)