sig
type field_options = [ `Index | `Optional | `Unique ]
type table_options = { unique : string list list; }
type s
type g
val text :
?flags:Sql_orm.Schema.field_options list -> string -> Sql_orm.Schema.s
val blob :
?flags:Sql_orm.Schema.field_options list -> string -> Sql_orm.Schema.s
val real :
?flags:Sql_orm.Schema.field_options list -> string -> Sql_orm.Schema.s
val date :
?flags:Sql_orm.Schema.field_options list -> string -> Sql_orm.Schema.s
val integer :
?flags:Sql_orm.Schema.field_options list -> string -> Sql_orm.Schema.s
val foreign :
?flags:Sql_orm.Schema.field_options list ->
string -> string -> Sql_orm.Schema.s
val foreign_many :
?flags:Sql_orm.Schema.field_options list ->
string -> string -> Sql_orm.Schema.s
type collection
val make :
(string * Sql_orm.Schema.s list * (string list * string list) list *
Sql_orm.Schema.table_options)
list -> Sql_orm.Schema.collection
val default_opts : Sql_orm.Schema.table_options
end