diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 00:20:04 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-10-24 00:20:04 +0000 |
| commit | 0b1c7ca41a6d8ce41b9783153b567c16250913ff (patch) | |
| tree | 5ae47b5738aa53515307500ff4d933384857cb23 /lib/kernel/Merkle.ml | |
| parent | 7689433baac01b6e9f3d7f91bec0ec1b89f15104 (diff) | |
| download | RNT-0b1c7ca41a6d8ce41b9783153b567c16250913ff.tar.gz RNT-0b1c7ca41a6d8ce41b9783153b567c16250913ff.zip | |
`fold_left` -> `foldm_right`
Diffstat (limited to 'lib/kernel/Merkle.ml')
| -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 ) |