Forsake `fmap`

2 files changed, 10 insertions, 10 deletions

diff --git a/test/unit/kernel/Merkle.ml b/test/unit/kernel/Merkle.ml
index 5c8d761..b0d4e03 100644
--- a/test/unit/kernel/Merkle.ml
+++ b/test/unit/kernel/Merkle.ml
@@ -16,8 +16,8 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
         let* node =
           T.empty
           |> T.insert tx "k1" "v1"
-          |> fmap (T.insert tx "k2" "v2")
-          |> fmap (T.insert tx "k3" "v3")
+          |>> 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
@@ -75,8 +75,8 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
         let* node =
           T.empty
           |> T.insert tx "k1" "v1"
-          |> fmap (T.insert tx "k2" "v2")
-          |> fmap (T.insert tx "k3" "v3")
+          |>> (T.insert tx "k2" "v2")
+          |>> (T.insert tx "k3" "v3")
         in
         let* () = S.commit tx in
         Ok (T.hash_of node)
@@ -107,8 +107,8 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
         let* node =
           T.empty
           |> T.insert tx "k1" "v1"
-          |> fmap (T.insert tx "k2" "v2")
-          |> fmap (T.insert tx "k3" "v3")
+          |>> (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
@@ -135,13 +135,13 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
         let* tx = S.start conn in
         let key i = Printf.sprintf "k%03d" i in
         let all = List.init 300 key in
-        let* full = List.fold_left (fun node k -> fmap (T.insert tx k k) node) (Ok T.empty) all in
+        let* full = List.fold_left (fun node k -> node |>> T.insert tx k k) (Ok T.empty) all in
         let evens = List.filteri (fun i _ -> i mod 2 = 0) all in
-        let* half = List.fold_left (fun node k -> fmap (T.remove tx k) node) (Ok full) evens in
+        let* half = List.fold_left (fun node k -> node |>> T.remove tx k) (Ok full) evens in
         let* kept = T.lookup tx (key 1) half in
         let* gone = T.lookup tx (key 2) half in
         let* keys = T.keys tx half in
-        let* none = List.fold_left (fun node k -> fmap (T.remove tx k) node) (Ok half) all in
+        let* none = List.fold_left (fun node k -> node |>> T.remove tx k) (Ok half) all in
         let* () = S.abort tx in
         Ok (kept, gone, BatFingerTree.to_list keys, T.hash_of none)
       end
diff --git a/test/unit/kernel/Session.ml b/test/unit/kernel/Session.ml
index edb22c4..0665985 100644
--- a/test/unit/kernel/Session.ml
+++ b/test/unit/kernel/Session.ml
@@ -39,7 +39,7 @@ module Make (S : Abstract.Storage.STORAGE) (C : Helpers.Storage.CONFIGURATOR) =
         Protocols.Session.pin interface {Protocols.Session.snapshot= tip'};
         let after = finds root library in
         let* pinned =
-          lookup root ("system" @/ "session" @/ "client" @/ "branch" @/ this) |> fmap address
+          lookup root ("system" @/ "session" @/ "client" @/ "branch" @/ this) |>> address
         in
         let refused =
           assoc session ("branch" @/ "multigroup" @/ this) "other" (Some multigroup)