Multigroup unified reference for hierarchical access

1 files changed, 8 insertions, 2 deletions

diff --git a/lib/tuple.ml b/lib/tuple.ml
index 1ce73b0..24eecab 100644
--- a/lib/tuple.ml
+++ b/lib/tuple.ml
@@ -1,5 +1,5 @@
 module AttributeMap = struct
-  include Map.Make (String)
+  include BatMap.String
 
   let sexp_of_t sexp_of_v m =
     Sexplib.Sexp.List
@@ -12,12 +12,14 @@ 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]
 
@@ -25,4 +27,8 @@ type t = Materialized of materialized | NonMaterialized of non_materialized
 [@@deriving sexp_of]
 
 let make_materialized ~relation ~attributes =
-  Materialized { relation; attributes }
+  Materialized {
+      relation;
+      attributes;
+      (* lineage = None *)
+    }