From b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 01:50:35 +0000 Subject: Formatting --- test/unit/kernel/Merkle.ml | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) (limited to 'test/unit/kernel/Merkle.ml') diff --git a/test/unit/kernel/Merkle.ml b/test/unit/kernel/Merkle.ml index b0d4e03..6ac0f63 100644 --- a/test/unit/kernel/Merkle.ml +++ b/test/unit/kernel/Merkle.ml @@ -14,10 +14,7 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = let open Utilities.Result in let* tx = S.start conn in let* node = - T.empty - |> T.insert tx "k1" "v1" - |>> T.insert tx "k2" "v2" - |>> T.insert tx "k3" "v3" + T.empty |> T.insert tx "k1" "v1" |>> T.insert tx "k2" "v2" |>> T.insert tx "k3" "v3" in let* node' = T.insert tx "k3" "toodles" node in let* v1 = T.lookup tx "k1" node in @@ -73,10 +70,7 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = let open Utilities.Result in let* tx = S.start conn in let* node = - T.empty - |> T.insert tx "k1" "v1" - |>> (T.insert tx "k2" "v2") - |>> (T.insert tx "k3" "v3") + T.empty |> T.insert tx "k1" "v1" |>> T.insert tx "k2" "v2" |>> T.insert tx "k3" "v3" in let* () = S.commit tx in Ok (T.hash_of node) @@ -105,10 +99,7 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) = let open Utilities.Result in let* tx = S.start conn in let* node = - T.empty - |> T.insert tx "k1" "v1" - |>> (T.insert tx "k2" "v2") - |>> (T.insert tx "k3" "v3") + T.empty |> T.insert tx "k1" "v1" |>> T.insert tx "k2" "v2" |>> T.insert tx "k3" "v3" in let* keys = T.fold_left tx (fun acc k _ -> k :: acc) [] node |> Result.map List.rev in let* values = T.fold_left tx (fun acc _ v -> v :: acc) [] node |> Result.map List.rev in -- cgit v1.2.3