lib/tuple.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module AttributeMap = Map.Make(String)

type non_materialized = {
  hash : Conventions.Hash.t;
  relation : Conventions.Name.t;
  attributes : Conventions.Hash.t AttributeMap.t;
}

type materialized = {
  relation: Conventions.Name.t;
  attributes: Conventions.AbstractValue.t AttributeMap.t
}

type t = 
  | Materialized of materialized
  | NonMaterialized of non_materialized

let make_materialized ~relation ~attributes = Materialized { relation; attributes }