Zkapp_epoch_ledger (archive_lib.Archive_lib.Processor.Zkapp_epoch

type t = {

hash_id : int option;

total_currency_id : int option;

}

val total_currency_id : t -> int option

val hash_id : t -> int option

module Fields : sig ... end

val to_hlist : t -> ( unit, int option -> int option -> unit ) H_list.t

val of_hlist : ( unit, int option -> int option -> unit ) H_list.t -> t

val typ : t Caqti_type.t

val table_name : string

val add_if_doesn't_exist : 
  (module Caqti_async.CONNECTION) ->
  ( Mina_base.Frozen_ledger_hash.t Mina_base.Zkapp_basic.Or_ignore.t,
    Currency.Amount.t Mina_base.Zkapp_precondition.Closed_interval.t
      Mina_base.Zkapp_basic.Or_ignore.t )
    Mina_base.Epoch_ledger.Poly.t ->
  ( int, [> Caqti_error.call_or_retrieve ] ) Async_kernel__Deferred_result.t

val load : 
  (module Caqti_async.CONNECTION) ->
  int ->
  ( t, [> Caqti_error.call_or_retrieve ] ) Stdlib.result
    Async_kernel.Deferred.t