2 files changed, 2 insertions, 9 deletions
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;
diff --git a/lib/concepts/Multigroup.mli b/lib/concepts/Multigroup.mli
index 1a76dce..ef0f8ea 100644
--- a/lib/concepts/Multigroup.mli
+++ b/lib/concepts/Multigroup.mli
@@ -4,6 +4,5 @@ type address = Hash.hash
 include Object.S with type t := t
 
 val make : name:string -> relations:address -> t
-
 val name : t -> string
 val relations : t -> address