Formatting

1 files changed, 3 insertions, 12 deletions

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