From 7ef6677dff76cec6f2e39dc1443da890ee7f783f Mon Sep 17 00:00:00 2001 From: Corentin Leruth Date: Fri, 21 Feb 2025 09:32:53 +0100 Subject: [PATCH] add missing sample argument to Traceparent.to_value --- src/core/opentelemetry.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/core/opentelemetry.ml b/src/core/opentelemetry.ml index 4095bc3e..f1a2b061 100644 --- a/src/core/opentelemetry.ml +++ b/src/core/opentelemetry.ml @@ -1576,8 +1576,9 @@ module Trace_context = struct | Ok sp -> Ok (Span_ctx.trace_id sp, Span_ctx.parent_id sp) | Error _ as e -> e - let to_value ~(trace_id : Trace_id.t) ~(parent_id : Span_id.t) () : string = - let span_ctx = Span_ctx.make ~trace_id ~parent_id () in + let to_value ?(sampled : bool option) ~(trace_id : Trace_id.t) + ~(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 end end