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/concepts/Tuple.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/concepts/Tuple.ml') diff --git a/lib/concepts/Tuple.ml b/lib/concepts/Tuple.ml index c2da77c..dfb7cbe 100644 --- a/lib/concepts/Tuple.ml +++ b/lib/concepts/Tuple.ml @@ -30,8 +30,8 @@ and Body : Encoding.Record.BODY = struct let of_fields data = let open Utilities.Result in - let* type_ = Encoding.Bencode.field "type" data |> fmap Encoding.Bencode.as_string in - let* kvs = Encoding.Bencode.field "attributes" data |> fmap Encoding.Bencode.as_dict in + let* type_ = Encoding.Bencode.field "type" data |>> Encoding.Bencode.as_string in + let* kvs = Encoding.Bencode.field "attributes" data |>> Encoding.Bencode.as_dict in kvs |> List.map (fun (name, v) -> value_of_bencode v |> Result.map (fun v -> name, v)) |> Utilities.List.sequence -- cgit v1.2.3