(** Lwt_engine-based event loop for Moonpool.

    In what follows, we mean by "lwt thread" the thread running [Lwt_main.run]
    (so, the thread where the Lwt event loop and all Lwt callbacks execute).

    {b NOTE}: this is experimental and might change in future versions.

    @since 0.6 *)

module Fut = Moonpool.Fut

(** {2 Basic conversions} *)

val fut_of_lwt : 'a Lwt.t -> 'a Moonpool.Fut.t
(** [fut_of_lwt lwt_fut] makes a thread-safe moonpool future that completes when
    [lwt_fut] does. This must be run from within the Lwt thread. *)

val lwt_of_fut : 'a Moonpool.Fut.t -> 'a Lwt.t
(** [lwt_of_fut fut] makes a lwt future that completes when [fut] does. This
    must be called from the Lwt thread, and the result must always be used only
    from inside the Lwt thread. *)

(** {2 Helpers on the moonpool side} *)

val spawn_lwt : (unit -> 'a) -> 'a Lwt.t
(** This spawns a task that runs in the Lwt scheduler *)

val await_lwt : 'a Lwt.t -> 'a
(** [await_lwt fut] awaits a Lwt future from inside a task running on a moonpool
    runner. This must be run from within a Moonpool runner so that the await-ing
    effect is handled. *)

(** {2 Wrappers around Lwt_main} *)

val on_uncaught_exn : (Moonpool.Exn_bt.t -> unit) ref

val lwt_main : (Moonpool.Runner.t -> 'a) -> 'a
(** Setup, run lwt main, return the result *)