sig
  type dbinfo
  type database
  val connect : Db.DbInterface.dbinfo -> Db.DbInterface.database
  val init_db : Db.DbInterface.database -> string -> unit
  val create_data :
    Db.DbInterface.database ->
    string ->
    ?log:bool ->
    ?visibility:Util.visibility -> 'a Db.coding -> string -> 'a -> 'a Db.data
  val disconnect : Db.DbInterface.database -> unit
end