Zkapp_epoch_data (archive_lib.Archive_lib.Processor.Zkapp_epoch

type t = {

epoch_ledger_id : int;

epoch_seed : string option;

start_checkpoint : string option;

lock_checkpoint : string option;

epoch_length_id : int option;

}

val epoch_length_id : t -> int option

val lock_checkpoint : t -> string option

val start_checkpoint : t -> string option

val epoch_seed : t -> string option

val epoch_ledger_id : t -> int

module Fields : sig ... end

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

val of_hlist : 
  ( unit,
    int ->
    string option ->
    string option ->
    string 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.Zkapp_precondition.Protocol_state.Epoch_data.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