diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/tuple.ml | 31 |
1 files changed, 10 insertions, 21 deletions
diff --git a/lib/tuple.ml b/lib/tuple.ml index ffeb3c9..1f47214 100644 --- a/lib/tuple.ml +++ b/lib/tuple.ml @@ -3,35 +3,24 @@ module AttributeMap = struct let sexp_of_t sexp_of_v m = Sexplib.Sexp.List - (List.map - (fun (k, v) -> Sexplib.Sexp.List [ Sexplib.Sexp.Atom k; sexp_of_v v ]) - (bindings m)) + (List.map (fun (k, v) -> Sexplib.Sexp.List [Sexplib.Sexp.Atom k; sexp_of_v v]) (bindings m)) end -type non_materialized = { - hash : Conventions.Hash.t; - relation : Conventions.Name.t; - attributes : Attribute.referenced AttributeMap.t; - (* lineage : Relation.Lineage.t option; *) -} +type non_materialized = + { hash: Conventions.Hash.t; + relation: Conventions.Name.t; + attributes: Attribute.referenced AttributeMap.t (* lineage : Relation.Lineage.t option; *) } [@@deriving sexp_of] -type materialized = { - relation : Conventions.Name.t; - attributes : Attribute.materialized AttributeMap.t; - (* lineage : Relation.Lineage.t option; *) -} +type materialized = + { relation: Conventions.Name.t; + attributes: Attribute.materialized AttributeMap.t (* lineage : Relation.Lineage.t option; *) } [@@deriving sexp_of] -type t = Materialized of materialized | NonMaterialized of non_materialized -[@@deriving sexp_of] +type t = Materialized of materialized | NonMaterialized of non_materialized [@@deriving sexp_of] let make_materialized ~relation ~attributes = - Materialized { - relation; - attributes; - (* lineage = None *) - } + Materialized {relation; attributes (* lineage = None *)} let materialized_equal a b = AttributeMap.equal Attribute.materialized_equal a.attributes b.attributes |