diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Tuple.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 |