cleaning
This commit is contained in:
parent
656554048a
commit
d09897cd52
@ -1,5 +1,4 @@
|
|||||||
type query =
|
type query =
|
||||||
(*| Select of column list * table list option * filter option*)
|
|
||||||
| Select of column list * table_expression
|
| Select of column list * table_expression
|
||||||
| CreateSchema of string
|
| CreateSchema of string
|
||||||
| CreateTable of table_scope option * table
|
| CreateTable of table_scope option * table
|
||||||
@ -163,8 +162,8 @@ and pp_predicate pred =
|
|||||||
| Comparison(op, exp) -> pp_operator op ^ pp_expression exp
|
| Comparison(op, exp) -> pp_operator op ^ pp_expression exp
|
||||||
| Between(exp1, exp2) -> "BETWEEN " ^ pp_expression exp1 ^ " AND " ^pp_expression exp2
|
| Between(exp1, exp2) -> "BETWEEN " ^ pp_expression exp1 ^ " AND " ^pp_expression exp2
|
||||||
| NotBetween(exp1, exp2) -> "NOT BETWEEN " ^ pp_expression exp1 ^ " AND " ^pp_expression exp2
|
| NotBetween(exp1, exp2) -> "NOT BETWEEN " ^ pp_expression exp1 ^ " AND " ^pp_expression exp2
|
||||||
(*| Like(exp) -> "LIKE " ^ pp_expression exp
|
| Like(exp) -> "LIKE " ^ pp_expression exp
|
||||||
| NotLike(exp) -> " NOT LIKE " ^ pp_expression exp*)
|
(*| NotLike(exp) -> " NOT LIKE " ^ pp_expression exp*)
|
||||||
| _ -> failwith "Predicate not supported"
|
| _ -> failwith "Predicate not supported"
|
||||||
|
|
||||||
and pp_operator op =
|
and pp_operator op =
|
||||||
|
Loading…
Reference in New Issue
Block a user