diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-06-23 23:53:26 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-06-23 23:53:26 -0300 |
| commit | c284fcd570342c31bc21169960579a20a763e32e (patch) | |
| tree | ce7485055116d794c55090ad0978e0b3f5ff4c2a /lib/ddl/ast.ml | |
| parent | b81586ee4a0543a5f9866586c78dccdd6328934a (diff) | |
| download | Sakura-c284fcd570342c31bc21169960579a20a763e32e.tar.gz Sakura-c284fcd570342c31bc21169960579a20a763e32e.zip | |
Format
Diffstat (limited to 'lib/ddl/ast.ml')
| -rw-r--r-- | lib/ddl/ast.ml | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lib/ddl/ast.ml b/lib/ddl/ast.ml index e1e5bad..86af755 100644 --- a/lib/ddl/ast.ml +++ b/lib/ddl/ast.ml @@ -1,16 +1,12 @@ open Sexplib.Std -type cardinality_spec = - | Finite of int - | AlephZero - | Continuum - | ConstrainedFinite +type cardinality_spec = Finite of int | AlephZero | Continuum | ConstrainedFinite [@@deriving sexp] type statement = | CreateMultigroup of string - | CreateRelation of { name : string; schema : (string * string) list } + | CreateRelation of {name: string; schema: (string * string) list} | RetractRelation of string | ClearRelation of string - | RegisterDomain of { name : string; cardinality : cardinality_spec } + | RegisterDomain of {name: string; cardinality: cardinality_spec} [@@deriving sexp] |