From c284fcd570342c31bc21169960579a20a763e32e Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Tue, 23 Jun 2026 23:53:26 -0300 Subject: Format --- lib/tuple.ml | 31 ++++++++++--------------------- 1 file changed, 10 insertions(+), 21 deletions(-) (limited to 'lib/tuple.ml') 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 -- cgit v1.2.3