Format

2 files changed, 7 insertions, 15 deletions

diff --git a/lib/qualified_name.ml b/lib/qualified_name.ml
index b6d01bb..2155f7d 100644
--- a/lib/qualified_name.ml
+++ b/lib/qualified_name.ml
@@ -6,11 +6,7 @@
     - ["mg:schema:relation"]   -> { multigroup=mg; schema; relation }
 *)
 
-type t = {
-  multigroup : string;
-  schema : string;
-  relation : string;
-}
+type t = { multigroup : string; schema : string; relation : string }
 
 let default_schema = "public"
 
diff --git a/lib/qualified_name.mli b/lib/qualified_name.mli
index 9bee0c9..5da7555 100644
--- a/lib/qualified_name.mli
+++ b/lib/qualified_name.mli
@@ -2,23 +2,19 @@
 
     Unqualified names fill in defaults: empty multigroup, ["public"] schema. *)
 
-type t = {
-  multigroup : string;
-  schema : string;
-  relation : string;
-}
+type t = { multigroup : string; schema : string; relation : string }
 
 val default_schema : string
 
-(** Split on [:] with default filling.
-    - ["rel"]           -> multigroup="", schema="public", relation="rel"
-    - ["s:rel"]         -> multigroup="", schema="s",      relation="rel"
-    - ["mg:s:rel"]      -> multigroup="mg", schema="s",    relation="rel" *)
 val parse : string -> t
+(** Split on [:] with default filling.
+    - ["rel"] -> multigroup="", schema="public", relation="rel"
+    - ["s:rel"] -> multigroup="", schema="s", relation="rel"
+    - ["mg:s:rel"] -> multigroup="mg", schema="s", relation="rel" *)
 
 val make : ?multigroup:string -> ?schema:string -> string -> t
 val to_string : t -> string
 
+val to_key : t -> string
 (** Composite key for [RelationMap] lookup within a single database:
     ["schema:relation"]. *)
-val to_key : t -> string