diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/qualified_name.ml | 6 | ||||
| -rw-r--r-- | lib/qualified_name.mli | 16 |
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 |