add Event.Infix

src/sync/event.ml

@@ -2,3 +2,10 @@ include Picos_std_event.Event
 
 let[@inline] of_fut (fut : _ Moonpool.Fut.t) : _ t =
   from_computation (Moonpool.Fut.Private_.as_computation fut)
+
+module Infix = struct
+  let[@inline] ( let+ ) x f = map f x
+  let ( >|= ) = ( let+ )
+end
+
+include Infix

src/sync/event.mli

@@ -3,3 +3,10 @@ include module type of struct
 end
 
 val of_fut : 'a Moonpool.Fut.t -> 'a t
+
+module Infix : sig
+  val ( >|= ) : 'a t -> ('a -> 'b) -> 'b t
+  val ( let+ ) : 'a t -> ('a -> 'b) -> 'b t
+end
+
+include module type of Infix