More hacks to get nested project information in the trace

safesparrow · Aug 31, 2022 · 0702fc1 · 0702fc1
1 parent 16fcfd4
commit 0702fc1
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Compiler/Service/service.fs b/src/Compiler/Service/service.fs
@@ -343,7 +343,11 @@ type BackgroundCompiler
                             member x.EvaluateRawContents() =
                                 node {
                                     Trace.TraceInformation("FCS: {0}.{1} ({2})", userOpName, "GetAssemblyData", nm)
-                                    return! self.GetAssemblyData(opts, userOpName + ".CheckReferencedProject(" + nm + ")")
+                                    let act = Activity.activitySource.StartActivity("CheckReferencedProject")
+                                    act.AddTag("Project", nm) |> ignore
+                                    let! x = self.GetAssemblyData(opts, userOpName + ".CheckReferencedProject(" + nm + ")")
+                                    act.Dispose()
+                                    return x
                                 }
 
                             member x.TryGetLogicalTimeStamp(cache) =