package pgocaml_ppx
type key = PGOCaml.connection_desc
val exp_of_string :
loc:Ppxlib.location ->
string ->
Astlib.Ast_500.Parsetree.expression
val get_connection :
loc:'a ->
key ->
(unit PGOCaml.t PGOCaml.monad, string * 'a) Rresult.result
get_connection key
Find the database connection specified by key
, * otherwise attempt to create a new one from key
and return that (or an * error).
val name_of_type_wrapper : 'a PGOCaml.t -> PGOCaml.oid -> string option
val unravel_type :
'a PGOCaml.t ->
?load_custom_from:string ->
?colnam:string ->
?argnam:string ->
?typnam:string ->
PGOCaml.oid ->
string * (string * string) option
val rex : Re.re
val const_string :
loc:Astlib.Location.t ->
string ->
Ppxlib.Parsetree.expression
val parse_flags :
string list ->
'a ->
PGOCaml.connection_desc * bool * bool * bool * string option * string option
val mk_conversions :
?load_custom_from:string ->
loc:Astlib.Location.t ->
dbh:'a PGOCaml.t ->
(PGOCaml.result_description * bool) list ->
(Ppxlib_ast.Ast.expression * Ppxlib_ast.Ast.expression) list
val coretype_of_type :
loc:Astlib.Location.t ->
dbh:'a PGOCaml.t ->
PGOCaml.oid ->
Ppxlib.Parsetree.core_type
val mk_listpat : loc:Astlib.Location.t -> 'a list -> Ppxlib_ast.Ast.pattern
produce a list pattern to match the result of a query
val pgsql_expand :
genobject:bool ->
?flags:string list ->
Ppxlib.Location.t ->
Ppxlib_ast.Ast.expression ->
string ->
(Ppxlib_ast.Ast.expression, string * Ppxlib.Location.t) Rresult.result
val expand_sql :
genobject:bool ->
Ppxlib.Location.t ->
Ppxlib_ast.Ast.expression ->
string list ->
(Ppxlib_ast.Ast.expression, string * Ppxlib.Location.t) Rresult.result
val list_of_string_args :
(Ppxlib.Asttypes.arg_label * Ppxlib.Parsetree.expression) list ->
string list
val gen_expand :
bool ->
loc:Ppxlib.Location.t ->
path:'a ->
Ppxlib.Parsetree.expression ->
Ppxlib_ast.Ast.expression
val extension_pgsql : Ppxlib.Extension.t
val extension_pgsql_object : Ppxlib.Extension.t
val rule_pgsql : Ppxlib.Context_free.Rule.t
val rule_pgsql_object : Ppxlib.Context_free.Rule.t
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>