From 0f5161930584eaf91fd195b891ce7d9130c7b7f1 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 01:30:08 +0000 Subject: Forsake `fmap` --- lib/kernel/Tuple.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/kernel/Tuple.ml') diff --git a/lib/kernel/Tuple.ml b/lib/kernel/Tuple.ml index 41babe9..7cd952e 100644 --- a/lib/kernel/Tuple.ml +++ b/lib/kernel/Tuple.ml @@ -67,8 +67,8 @@ module Make (S : Abstract.Storage.STORAGE) = struct let of_fields data = let open Utilities.Result in let open Concepts.Encoding in - let* type_ = Bencode.field "type" data |> fmap Bencode.as_string in - let* attributes = Bencode.field "attributes" data |> fmap Value.hash_of_bencode in + let* type_ = Bencode.field "type" data |>> Bencode.as_string in + let* attributes = Bencode.field "attributes" data |>> Value.hash_of_bencode in Ok {type_; attributes} end @@ -80,7 +80,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct let node tx {attributes; _} = let open Utilities.Result in AttributeM.find tx attributes - |> fmap (Option.to_result ~none:(Error.incomplete_tuple attributes)) + |>> Option.to_result ~none:(Error.incomplete_tuple attributes) let empty tx ~type_ () = let open Utilities.Result in -- cgit v1.2.3