`fold_left` -> `foldm_right`

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/Utilities.mli b/lib/Utilities.mli
index fb38966..7af9f03 100644
--- a/lib/Utilities.mli
+++ b/lib/Utilities.mli
@@ -6,18 +6,20 @@ end
 
 module Result : sig
   val ( let* ) : ('a, 'e) result -> ('a -> ('b, 'e) result) -> ('b, 'e) result
+  val ( |>> ) : ('a, 'e) result -> ('a -> ('b, 'e) result) -> ('b, 'e) result
   val fmap : ('a -> ('b, 'e) result) -> ('a, 'e) result -> ('b, 'e) result
 end
 
 module List : sig
   val sequence : ('a, 'b) result list -> ('a list, 'b) result
-  val fold_left : ('a -> 'b -> ('a, 'e) result) -> 'a -> 'b list -> ('a, 'e) result
+  val foldm_left : ('a -> 'b -> ('a, 'e) result) -> 'a -> 'b list -> ('a, 'e) result
   val concat_map : ('a -> ('b list, 'e) result) -> 'a list -> ('b list, 'e) result
   val hd_opt : 'a list -> 'a option
 end
 
 module Option : sig
   val ( let* ) : 'a option -> ('a -> 'b option) -> 'b option
+  val ( |>> ) : 'a option -> ('a -> 'b option) -> 'b option
   val fmap : ('a -> 'b option) -> 'a option -> 'b option
   val sequence : ('a, 'b) result option -> ('a option, 'b) result
 end
@@ -33,7 +35,7 @@ module FingerTree : sig
   val map2 : ('a -> 'b -> 'c) -> 'a BatFingerTree.t -> 'b BatFingerTree.t -> 'c BatFingerTree.t
   val zip : 'a BatFingerTree.t -> 'b BatFingerTree.t -> ('a * 'b) BatFingerTree.t
   val sequence : ('a, 'b) result BatFingerTree.t -> ('a BatFingerTree.t, 'b) result
-  val fold_left : ('a -> 'b -> ('a, 'e) result) -> 'a -> 'b BatFingerTree.t -> ('a, 'e) result
+  val foldm_left : ('a -> 'b -> ('a, 'e) result) -> 'a -> 'b BatFingerTree.t -> ('a, 'e) result
   val join : string BatFingerTree.t -> string -> string
 end