From 0b1c7ca41a6d8ce41b9783153b567c16250913ff Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 00:20:04 +0000 Subject: `fold_left` -> `foldm_right` --- lib/kernel/Merkle.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/kernel/Merkle.ml') diff --git a/lib/kernel/Merkle.ml b/lib/kernel/Merkle.ml index 78ab5a5..6b44c41 100644 --- a/lib/kernel/Merkle.ml +++ b/lib/kernel/Merkle.ml @@ -328,7 +328,7 @@ functor let open Utilities.Result in with_batch tx (fun () -> let* _ = empty_under tx in - Utilities.List.fold_left + Utilities.List.foldm_left (fun node (key, value) -> insert tx key value node) empty bindings ) @@ -340,7 +340,7 @@ functor |> BatFingerTree.fold_left (fun acc (k, v) -> f acc k v) acc |> Result.ok | Trunk {children; _} -> - Utilities.FingerTree.fold_left + Utilities.FingerTree.foldm_left (fun acc addr -> let* node = find' tx addr in fold_left tx f acc node ) -- cgit v1.2.3