aboutsummaryrefslogblamecommitdiffstats
path: root/lib/domain.ml
blob: 753a7b9c0c9fd3ac9d9a8ae55fb742cb766c7f26 (plain) (tree)
1
2
3
4
5
6
7
8
9








                                                             
type t = {
  name : Conventions.Name.t;
  generator : Generator.t;
  membership_criteria : Tuple.t -> bool;
  cardinality : Conventions.Cardinality.t;
}

let make ~name ~generator ~membership_criteria ~cardinality =
  { name; generator; membership_criteria; cardinality }