From 8cddc12efdff4fe1742039df493ab5e425a685c4 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 12 Oct 2026 11:52:01 -0300 Subject: result fold left --- lib/Utilities.mli | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/Utilities.mli') diff --git a/lib/Utilities.mli b/lib/Utilities.mli index 4ab7674..59bc1fc 100644 --- a/lib/Utilities.mli +++ b/lib/Utilities.mli @@ -11,6 +11,7 @@ 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 hd_opt : 'a list -> 'a option end @@ -31,6 +32,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 join : string BatFingerTree.t -> string -> string end -- cgit v1.2.3