aboutsummaryrefslogtreecommitdiffstats
path: root/lib/relation.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/relation.ml')
-rw-r--r--lib/relation.ml9
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/relation.ml b/lib/relation.ml
index 705dcc5..0773c6c 100644
--- a/lib/relation.ml
+++ b/lib/relation.ml
@@ -1,6 +1,5 @@
-module Tree = struct
- type t = unit (* TODO: Radix Merkle tree here *)
-end
+(** Use the Merkle module for tuple hash storage *)
+module Tree = Merkle
module RelationConstraint = struct
type name = string
@@ -32,6 +31,7 @@ end
type t = {
hash : Conventions.Hash.t option;
name : Conventions.Name.t;
+ schema : Schema.t;
tree : Tree.t option;
constraints : RelationConstraint.t option;
cardinality : Conventions.Cardinality.t;
@@ -41,11 +41,12 @@ type t = {
lineage : Lineage.t;
}
-let make ~hash ~name ~tree ~constraints ~cardinality ~generator
+let make ~hash ~name ~schema ~tree ~constraints ~cardinality ~generator
~membership_criteria ~provenance ~lineage =
{
hash;
name;
+ schema;
tree;
constraints;
cardinality;