feat: add Event.of_fut

src/sync/event.ml

@@ -0,0 +1,4 @@
+include Picos_std_event.Event
+
+let[@inline] of_fut (fut : _ Moonpool.Fut.t) : _ t =
+  from_computation (Moonpool.Fut.Private_.as_computation fut)

src/sync/event.mli

@@ -0,0 +1,5 @@
+include module type of struct
+  include Picos_std_event.Event
+end
+
+val of_fut : 'a Moonpool.Fut.t -> 'a t

src/sync/moonpool_sync.ml

@@ -1,7 +1,7 @@
 module Mutex = Picos_std_sync.Mutex
 module Condition = Picos_std_sync.Condition
 module Lock = Lock
-module Event = Picos_std_event
+module Event = Event
 module Semaphore = Picos_std_sync.Semaphore
 module Lazy = Picos_std_sync.Lazy
 module Latch = Picos_std_sync.Latch