From b790c77c5e42a220a8419c69dbea3e392ee60fbe Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Sun, 2 Aug 2026 23:38:05 -0300 Subject: Revert "format" This reverts commit fee14f4b29840357f87f02d51953f41ce90f7d9e. --- lib/concepts/Object.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lib/concepts/Object.ml') diff --git a/lib/concepts/Object.ml b/lib/concepts/Object.ml index aacbda6..22fb14a 100644 --- a/lib/concepts/Object.ml +++ b/lib/concepts/Object.ml @@ -6,10 +6,13 @@ module type S = sig type t val equal : t -> t -> bool + val to_bencode : t -> bencode val of_bencode : bencode -> (t, Condition.condition) result + val to_blob : t -> Representation.blob val of_blob : Representation.blob -> (t, Condition.condition) result + val to_bytes : t -> bytes val of_bytes : bytes -> (t, Condition.condition) result end @@ -48,11 +51,13 @@ module Codec = struct let to_bencode object_ = Bencode.Tagged (B.tag, Bencode.Dict (B.fields object_)) let of_bencode = function - | Bencode.Tagged (tag, (Bencode.Dict _ as data)) when Char.equal tag B.tag -> B.of_fields data + | Bencode.Tagged (tag, (Bencode.Dict _ as data)) when Char.equal tag B.tag -> + B.of_fields data | _ -> Error (B.malformed ()) let to_blob object_ = to_bencode object_ |> Bencode.to_blob let of_blob blob = Bencode.of_blob blob |> Utilities.Result.fmap of_bencode + let to_bytes object_ = to_blob object_ |> Representation.bytes_of_blob let of_bytes bytes = Bencode.of_bytes bytes |> Utilities.Result.fmap of_bencode end -- cgit v1.2.3