diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-26 15:30:53 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-26 15:30:53 -0300 |
| commit | e32ba6294781691846c3ab19281fe977350b4d0f (patch) | |
| tree | f38e92ba2fc03e966d7263c7ee2e0b5d7983ebae /lib/tuple.ml | |
| parent | be375a52da6174dfda5b68617d27e1542cc80499 (diff) | |
| download | Sakura-e32ba6294781691846c3ab19281fe977350b4d0f.tar.gz Sakura-e32ba6294781691846c3ab19281fe977350b4d0f.zip | |
preparation cleanup for RNT integration
Diffstat (limited to 'lib/tuple.ml')
| -rw-r--r-- | lib/tuple.ml | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/lib/tuple.ml b/lib/tuple.ml deleted file mode 100644 index 1f47214..0000000 --- a/lib/tuple.ml +++ /dev/null @@ -1,26 +0,0 @@ -module AttributeMap = struct - include BatMap.String - - 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)) -end - -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; *) } -[@@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 *)} - -let materialized_equal a b = - AttributeMap.equal Attribute.materialized_equal a.attributes b.attributes |