module Updatedb_sql : sig..end
val (>|=) : 'a Lwt.t -> ('a -> 'b) -> 'b Lwt.tval (>>=) : 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.tval options : 
  (< name : < get : unit; nul : Sql.non_nullable; t : Sql.string_t >
            Sql.t;
     value : < get : unit; nul : Sql.non_nullable; t : Sql.string_t >
             Sql.t >,
   <  > Sql.writable)
  Sql.view
val current_version : int
val update_version : 
  'a Ocsi_sql.Lwt_Query.Db.t -> int -> unit Ocsi_sql.Lwt_Query.Db.monad
val update : int -> (Ocsi_sql.db_t -> unit Lwt.t) -> unit Lwt.t
val alter : 'a Ocsi_sql.Lwt_PGOCaml.t -> string -> unit Lwt.t