diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-02 22:36:49 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-02 22:36:49 -0300 |
| commit | 32e663591a84d095723e62ef934a0bc6e1470b52 (patch) | |
| tree | 60d6905606c4c5b829d51dcf95603d62df946f84 /lib/concepts/Encoding.ml | |
| parent | 9f8fe7b4e5891e848d035c240731fb578f6b33b5 (diff) | |
| parent | 73aec387d33626e33026432db5b1137b59edf0cf (diff) | |
| download | RNT-32e663591a84d095723e62ef934a0bc6e1470b52.tar.gz RNT-32e663591a84d095723e62ef934a0bc6e1470b52.zip | |
Merge branch 'relation-bipartite-registration'
Diffstat (limited to 'lib/concepts/Encoding.ml')
| -rw-r--r-- | lib/concepts/Encoding.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/concepts/Encoding.ml b/lib/concepts/Encoding.ml index 733ff67..d78eb28 100644 --- a/lib/concepts/Encoding.ml +++ b/lib/concepts/Encoding.ml @@ -235,6 +235,7 @@ module Record = struct module type S = sig type t + val tag : char val to_bencode : t -> Bencode.t val of_bencode : Bencode.t -> (t, Condition.condition) result val to_blob : t -> Blob.t @@ -255,6 +256,7 @@ module Record = struct module Make (B : BODY) : S with type t = B.t = struct type t = B.t + let tag = B.tag let to_bencode object_ = Bencode.Tagged (B.tag, Bencode.Dict (B.fields object_)) let of_bencode = function |