sig
  module type DbiDriverT =
    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
  module DbiPool :
    functor (Dbi_driver : DbiDriverT->
      sig
        type connection = Dbi_driver.connection
        val get :
          CamlGI.Cgi.Request.t ->
          ?host:string ->
          ?port:string ->
          ?user:string ->
          ?password:string -> string -> CamlGI.DbiPool.DbiPool.connection
      end
end