From dcf13581e5d8309727b96964f8fa13afe81d4eee Mon Sep 17 00:00:00 2001
From: Elliott Cable <elliott.cable@ahrefs.com>
Date: Wed, 14 Jun 2023 00:27:09 +0000
Subject: [PATCH] (- fix) Propagate force_new_trace_id in lwt with_

---
 src/lwt/opentelemetry_lwt.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/lwt/opentelemetry_lwt.ml b/src/lwt/opentelemetry_lwt.ml
index 650b8016..d6545d05 100644
--- a/src/lwt/opentelemetry_lwt.ml
+++ b/src/lwt/opentelemetry_lwt.ml
@@ -51,12 +51,14 @@ module Trace = struct
     in
     let trace_id =
       match trace_id, scope with
+      | _ when force_new_trace_id -> Trace_id.create ()
       | Some trace_id, _ -> trace_id
       | None, Some scope -> scope.trace_id
       | None, None -> Trace_id.create ()
     in
     let parent =
       match parent, scope with
+      | _ when force_new_trace_id -> None
       | Some span_id, _ -> Some span_id
       | None, Some scope -> Some scope.span_id
       | None, None -> None