Responder (mina_ledger.Mina_ledger.Sync

type t

val create : 
  Mina_ledger__Ledger.Mask.Attached.t ->
  ( Mina_ledger__Ledger.Location.Addr.t Syncable_ledger.Query.t -> unit ) ->
  logger:Logger.t ->
  trust_system:Trust_system.t ->
  t

val answer_query : 
  t ->
  Mina_ledger__Ledger.Location.Addr.t Syncable_ledger.Query.t
    Network_peer.Envelope.Incoming.t ->
  ( Snark_params.Tick.Field.t,
    ( Mina_base_import.Public_key.Compressed.Stable.V1.t,
      Mina_base.Token_id.Stable.V2.t,
      Mina_base.Token_permissions.Stable.V1.t,
      string,
      Currency.Balance.Stable.V1.t,
      Mina_numbers.Account_nonce.Stable.V1.t,
      Mina_base.Receipt.Chain_hash.Stable.V1.t,
      Mina_base_import.Public_key.Compressed.Stable.V1.t option,
      Mina_base.State_hash.Stable.V1.t,
      Mina_base.Account_timing.Stable.V1.t,
      Mina_base.Permissions.Stable.V2.t,
      Mina_base.Zkapp_account.Stable.V2.t option )
      Mina_base__Account.Poly.Stable.V2.t )
    Syncable_ledger.Answer.t
    option
    Async_kernel.Deferred.t