Record trace event when spawning processes

This can take quite a long time.
talex5 · Aug 8, 2024 · 05fae4e · 05fae4e
1 parent 33d4e01
commit 05fae4e
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib_eio_linux/low_level.ml b/lib_eio_linux/low_level.ml
@@ -571,7 +571,10 @@ module Process = struct
     let exit_status, set_exit_status = Promise.create () in
     let t =
       Fd.use_exn "errors-w" errors_w @@ fun errors_w ->
-      let pid, pid_fd = eio_spawn errors_w c_actions in
+      let pid, pid_fd =
+        Eio.Private.Trace.with_span "spawn" @@ fun () ->
+        eio_spawn errors_w c_actions
+      in
       let pid_fd = Fd.of_unix ~sw ~seekable:false ~close_unix:true pid_fd in
       { pid; pid_fd; exit_status }
     in