add missing sample argument to Traceparent.to_value

This commit is contained in:
Corentin Leruth 2025-02-21 09:32:53 +01:00 committed by Simon Cruanes
parent c3c5761b06
commit 7ef6677dff

View file

@ -1576,8 +1576,9 @@ module Trace_context = struct
| Ok sp -> Ok (Span_ctx.trace_id sp, Span_ctx.parent_id sp) | Ok sp -> Ok (Span_ctx.trace_id sp, Span_ctx.parent_id sp)
| Error _ as e -> e | Error _ as e -> e
let to_value ~(trace_id : Trace_id.t) ~(parent_id : Span_id.t) () : string = let to_value ?(sampled : bool option) ~(trace_id : Trace_id.t)
let span_ctx = Span_ctx.make ~trace_id ~parent_id () in ~(parent_id : Span_id.t) () : string =
let span_ctx = Span_ctx.make ?sampled ~trace_id ~parent_id () in
Bytes.unsafe_to_string @@ Span_ctx.to_w3c_trace_context span_ctx Bytes.unsafe_to_string @@ Span_ctx.to_w3c_trace_context span_ctx
end end
end end