From b991a78f3ef483049cf2da41c3cf3edb859a648f Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 14 Feb 2024 21:26:37 -0500
Subject: [PATCH] lwt: trace the function that performs actions in batch

---
 src/lwt/base.ml | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/lwt/base.ml b/src/lwt/base.ml
index 40f8fb64..88e7ed3d 100644
--- a/src/lwt/base.ml
+++ b/src/lwt/base.ml
@@ -64,6 +64,11 @@ module Perform_action_in_lwt = struct
     (** Gets the current set of notifications and perform them from inside the
     Lwt thread *)
     let perform_pending_actions () : unit =
+      let@ _sp =
+        Moonpool.Private.Tracing_.with_span
+          "moonpool-lwt.perform-pending-actions"
+      in
+
       let l = Action_queue.pop_all actions_ in
       List.iter Action.perform l