From 3b6e239c1778cd39ea42810543844a3c922bb85a Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 25 Dec 2025 01:20:49 -0500 Subject: [PATCH] debug --- src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml b/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml index 70843f7a..ff622e66 100644 --- a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml +++ b/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml @@ -129,7 +129,12 @@ let setup ?config ?(enable = true) () = if enable then setup_ ?config () let remove_exporter () : unit Lwt.t = let done_fut, done_u = Lwt.wait () in - Main_exporter.remove ~on_done:(fun () -> Lwt.wakeup_later done_u ()) (); + (* Printf.eprintf "otel.client.cohttp-lwt: removing…\n%!"; *) + Main_exporter.remove + ~on_done:(fun () -> + (* Printf.eprintf "otel.client.cohttp-lwt: done removing\n%!"; *) + Lwt.wakeup_later done_u ()) + (); done_fut let remove_backend = remove_exporter