From 8d59f43f445164e8cc8bd3fe1a23bd04e807a6b3 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Sun, 2 Aug 2026 23:37:51 -0300 Subject: format --- lib/concepts/Multigroup.ml | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'lib/concepts/Multigroup.ml') diff --git a/lib/concepts/Multigroup.ml b/lib/concepts/Multigroup.ml index 863cd26..b8fc743 100644 --- a/lib/concepts/Multigroup.ml +++ b/lib/concepts/Multigroup.ml @@ -1,8 +1,5 @@ type address = Hash.hash - -type t = - { name: string; - relations: address } +type t = {name: string; relations: address} module Field = struct let name = "name" @@ -22,7 +19,6 @@ module Error = struct end let make ~name ~relations = {name; relations} - let name multigroup = multigroup.name let relations multigroup = multigroup.relations @@ -31,9 +27,7 @@ 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