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/Multigroup.ml | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'lib/concepts/Multigroup.ml') diff --git a/lib/concepts/Multigroup.ml b/lib/concepts/Multigroup.ml index b8fc743..863cd26 100644 --- a/lib/concepts/Multigroup.ml +++ b/lib/concepts/Multigroup.ml @@ -1,5 +1,8 @@ type address = Hash.hash -type t = {name: string; relations: address} + +type t = + { name: string; + relations: address } module Field = struct let name = "name" @@ -19,6 +22,7 @@ module Error = struct end let make ~name ~relations = {name; relations} + let name multigroup = multigroup.name let relations multigroup = multigroup.relations @@ -27,7 +31,9 @@ module Body = struct let tag = 'm' let malformed = Error.malformed_multigroup - let equal left right = left.name = right.name && Hash.hash_equals left.relations right.relations + + let equal left right = + left.name = right.name && Hash.hash_equals left.relations right.relations let fields multigroup = [ Field.name, Object.Field.string multigroup.name; -- cgit v1.2.3