diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Merkle.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 ) |