From 946c10e17e0e5dad9324b394e678bec59cb62ed7 Mon Sep 17 00:00:00 2001 From: Patrick Ferris Date: Wed, 10 Jan 2024 22:35:55 +0000 Subject: [PATCH] Update to latest tracing changes --- lib_eio_js/browser/eio_browser.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib_eio_js/browser/eio_browser.ml b/lib_eio_js/browser/eio_browser.ml index 63fd0f252..a9470a230 100644 --- a/lib_eio_js/browser/eio_browser.ml +++ b/lib_eio_js/browser/eio_browser.ml @@ -47,7 +47,7 @@ end = struct let pop q = Lwt_dllist.take_opt_l q end -module Ctf = Eio.Private.Ctf +module Trace = Eio.Private.Trace type suspend = Suspend @@ -60,11 +60,11 @@ module Suspended = struct let tid t = Eio.Private.Fiber_context.tid t.fiber let continue t v = - Ctf.note_switch (tid t); + Trace.fiber (tid t); Effect.Deep.continue t.k v let discontinue t ex = - Ctf.note_switch (tid t); + Trace.fiber (tid t); Effect.Deep.discontinue t.k ex end