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