More hacks to get nested project information in the trace

Author: safesparrow

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) =