diff --git a/src/client/lwt/dune b/src/client/lwt/dune index e5e2bdfb..0106cc8e 100644 --- a/src/client/lwt/dune +++ b/src/client/lwt/dune @@ -25,3 +25,15 @@ mtime.clock.os lwt.unix) (synopsis "Lwt-specific helpers for opentelemetry-client")) + +(rule + (enabled_if + (>= %{version:lwt} 6.0)) + (action + (copy types_.ml.6 types_.ml))) + +(rule + (enabled_if + (< %{version:lwt} 6.0)) + (action + (copy types_.ml.5 types_.ml))) diff --git a/src/client/lwt/notifier_lwt.ml b/src/client/lwt/notifier_lwt.ml index 722ea3d1..c9a241aa 100644 --- a/src/client/lwt/notifier_lwt.ml +++ b/src/client/lwt/notifier_lwt.ml @@ -5,7 +5,7 @@ module IO = Io_lwt type t = { notified: bool Atomic.t; cond: unit Lwt_condition.t; - notification: Lwt_unix.notification; + notification: Types_.notification; lwt_tid: int; (** thread ID where lwt runs *) deleted: bool Atomic.t; } diff --git a/src/client/lwt/types_.ml.5 b/src/client/lwt/types_.ml.5 new file mode 100644 index 00000000..c34ffc81 --- /dev/null +++ b/src/client/lwt/types_.ml.5 @@ -0,0 +1,2 @@ + +type notification = int diff --git a/src/client/lwt/types_.ml.6 b/src/client/lwt/types_.ml.6 new file mode 100644 index 00000000..bff82f73 --- /dev/null +++ b/src/client/lwt/types_.ml.6 @@ -0,0 +1,2 @@ + +type notification = Lwt_unix.notification