`sig
module type DBI_DRIVER =
sig
type connection
val connect :
?host:string ->
?port:string ->
?user:string ->
?password:string -> string -> Netcgi_dbi.DBI_DRIVER.connection
val close : Netcgi_dbi.DBI_DRIVER.connection -> unit
val closed : Netcgi_dbi.DBI_DRIVER.connection -> bool
val commit : Netcgi_dbi.DBI_DRIVER.connection -> unit
val ping : Netcgi_dbi.DBI_DRIVER.connection -> bool
val rollback : Netcgi_dbi.DBI_DRIVER.connection -> unit
end
module type DBI_POOL =
sig
type connection
val get :
Netcgi.cgi ->
?host:string ->
?port:string ->
?user:string ->
?password:string -> string -> Netcgi_dbi.DBI_POOL.connection
end
module DbiPool :
functor (Dbi_driver : DBI_DRIVER) ->
sig
type connection = Dbi_driver.connection
val get :
Netcgi.cgi ->
?host:string ->
?port:string ->
?user:string -> ?password:string -> string -> connection
end
end`