more granularity

baronfel · baronfel · commit 461876414574 · 2022-07-24T10:21:44.000-05:00
diff --git a/src/Compiler/Driver/ParseAndCheckInputs.fs b/src/Compiler/Driver/ParseAndCheckInputs.fs
@@ -1292,7 +1292,9 @@ let CheckOneInput
     }
 
 /// Typecheck a single file (or interactive entry into F# Interactive)
-let TypeCheckOneInputEntry (ctok, checkForErrors, tcConfig: TcConfig, tcImports, tcGlobals, prefixPathOpt) tcState inp =
+let TypeCheckOneInputEntry (ctok, checkForErrors, tcConfig: TcConfig, tcImports, tcGlobals, prefixPathOpt) tcState (inp: ParsedInput) =
+    use tcOneInputActivity = activitySource.StartActivity("CheckOneInput")
+    tcOneInputActivity.AddTag("inputName", inp.FileName) |> ignore<_>
     // 'use' ensures that the warning handler is restored at the end
     use unwindEL =
         PushDiagnosticsLoggerPhaseUntilUnwind(fun oldLogger ->
@@ -1341,6 +1343,7 @@ let CheckClosedInputSetFinish (declaredImpls: CheckedImplFile list, tcState) =
     tcState, declaredImpls, ccuContents
 
 let CheckClosedInputSet (ctok, checkForErrors, tcConfig, tcImports, tcGlobals, prefixPathOpt, tcState, inputs) =
+    use tcActivity = activitySource.StartActivity("CheckClosedInputSet")
     // tcEnvAtEndOfLastFile is the environment required by fsi.exe when incrementally adding definitions
     let results, tcState =
         (tcState, inputs)
