7 (** optional name and start/end position in string *)
8 type param_id
= string option * (int * int) deriving
(Show
)
9 type param_type
= Sql.Type.t
option deriving
(Show
)
10 type param
= param_id
* param_type deriving
(Show
)
11 type params
= param list deriving
(Show
)
13 let params_to_string ps
= Show.show
<params
>(ps
)
16 | Insert
of RA.Schema.t
option (** inserted *) * string (** table name *)
24 type t
= { schema
: RA.Schema.t
; params
: params
; kind
: kind
; props
: Props.t
; }