diff options
Diffstat (limited to 'lib/ast_types.ml')
-rw-r--r-- | lib/ast_types.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/ast_types.ml b/lib/ast_types.ml index fdcafd2..0cbdb4f 100644 --- a/lib/ast_types.ml +++ b/lib/ast_types.ml @@ -6,6 +6,7 @@ type ast_row = | Name of string * ast_row | Int of string * int * int * ast_row | Increment of string * ast_row + | Email of string * ast_row | Const of string * string * ast_row | List of string * string list * ast_row | Foreign of string * string * string * ast_row @@ -43,6 +44,9 @@ let rec print_row = function | Name (s, r) -> printf "Name(%s)," s; print_row r + | Email (s, r) -> + printf "Email(%s)," s; + print_row r | End -> printf "\n" @@ -79,6 +83,7 @@ let rec ast_row_to_fixtures = function | Const (s, v, r) -> PColumn (Fixture.Const (s, v)) :: ast_row_to_fixtures r | List (s, l, r) -> PColumn (Fixture.List (s, l)) :: ast_row_to_fixtures r | Increment (s, r) -> PColumn (Fixture.Increment s) :: ast_row_to_fixtures r + | Email (s, r) -> PColumn (Fixture.Email s) :: ast_row_to_fixtures r | End -> [] let extend_table_with_row table row = |