sig
  type connection
  val connect :
    ?host:string ->
    ?port:string ->
    ?user:string ->
    ?password:string -> string -> CamlGI.DbiPool.DbiDriverT.connection
  val close : CamlGI.DbiPool.DbiDriverT.connection -> unit
  val closed : CamlGI.DbiPool.DbiDriverT.connection -> bool
  val commit : CamlGI.DbiPool.DbiDriverT.connection -> unit
  val ping : CamlGI.DbiPool.DbiDriverT.connection -> bool
  val rollback : CamlGI.DbiPool.DbiDriverT.connection -> unit
end