@@ -1159,26 +1159,6 @@ let AddCheckResultsToTcState
11591159
11601160 ccuSigForFile, tcState
11611161
1162- let AddDummyCheckResultsToTcState
1163- (
1164- tcGlobals ,
1165- amap ,
1166- qualName : QualifiedNameOfFile ,
1167- prefixPathOpt ,
1168- tcSink ,
1169- tcState : TcState ,
1170- tcStateForImplFile : TcState ,
1171- rootSig
1172- ) =
1173- let hadSig = true
1174- let emptyImplFile = CreateEmptyDummyImplFile qualName rootSig
1175- let tcEnvAtEnd = tcStateForImplFile.TcEnvFromImpls
1176-
1177- let ccuSigForFile , tcState =
1178- AddCheckResultsToTcState ( tcGlobals, amap, hadSig, prefixPathOpt, tcSink, tcState.tcsTcImplEnv, qualName, rootSig) tcState
1179-
1180- ( tcEnvAtEnd, EmptyTopAttrs, Some emptyImplFile, ccuSigForFile), tcState
1181-
11821162/// Typecheck a single file (or interactive entry into F# Interactive)
11831163let CheckOneInputAux
11841164 (
@@ -1347,18 +1327,10 @@ let CheckOneInput
13471327
13481328 match partialResult with
13491329 | Choice1Of2 result -> return result, tcState
1350- | Choice2Of2 ( amap, _ conditionalDefines, rootSig, _ priorErrors, file, tcStateForImplFile, _ ccuSigForFile) ->
1351- return
1352- AddDummyCheckResultsToTcState(
1353- tcGlobals,
1354- amap,
1355- file.QualifiedName,
1356- prefixPathOpt,
1357- tcSink,
1358- tcState,
1359- tcStateForImplFile,
1360- rootSig
1361- )
1330+ | Choice2Of2 (_ amap, _ conditionalDefines, rootSig, _ priorErrors, file, tcStateForImplFile, ccuSigForFile) ->
1331+ let emptyImplFile = CreateEmptyDummyImplFile file.QualifiedName rootSig
1332+ let tcEnvAtEnd = tcStateForImplFile.TcEnvFromImpls
1333+ return ( tcEnvAtEnd, EmptyTopAttrs, Some emptyImplFile, ccuSigForFile), tcState
13621334 }
13631335
13641336// Within a file, equip loggers to locally filter w.r.t. scope pragmas in each input
0 commit comments