Simplify code by using get_trace_context

Signed-off-by: Steven Woods <[email protected]>

Author: snwoods

ocaml/libs/tracing/tracing.ml

@@ -437,10 +437,7 @@ module Span = struct
 
   let to_propagation_context span =
     let traceparent = span |> get_context |> SpanContext.to_traceparent in
-    span
-    |> get_context
-    |> SpanContext.context_of_span_context
-    |> TraceContext.with_traceparent (Some traceparent)
+    span |> get_trace_context |> TraceContext.with_traceparent (Some traceparent)
 
   let with_trace_context span trace_context =
     let span_context =

ocaml/libs/tracing/tracing_export.ml

@@ -83,10 +83,7 @@ module Content = struct
              )
         in
         let tags =
-          let span_context = Span.get_context s in
-          let trace_context =
-            SpanContext.context_of_span_context span_context
-          in
+          let trace_context = Span.get_trace_context s in
           let baggage =
             TraceContext.baggage_of trace_context |> Option.value ~default:[]
           in