From fd89c81f570d82562a23607e3084407d6f1187fe Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 4 Sep 2024 10:18:53 -0400
Subject: [PATCH] add Event.Infix

---
 src/sync/event.ml  | 7 +++++++
 src/sync/event.mli | 7 +++++++
 2 files changed, 14 insertions(+)

diff --git a/src/sync/event.ml b/src/sync/event.ml
index 3ab78478..90446648 100644
--- a/src/sync/event.ml
+++ b/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
diff --git a/src/sync/event.mli b/src/sync/event.mli
index 6840433b..309edbc7 100644
--- a/src/sync/event.mli
+++ b/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