Sync_handlermodule Ledger = Mina_ledger.Ledgermodule Sync_ledger = Mina_ledger.Sync_ledgermodule type CONTEXT = sig ... endmodule type Inputs_intf = sig ... endmodule Make
(Inputs : Inputs_intf) :
Mina_intf.Sync_handler_intf
with type transition_frontier := Inputs.Transition_frontier.tval answer_query :
frontier:Transition_frontier.t ->
Mina_base.Ledger_hash.t ->
Mina_ledger.Sync_ledger.Query.t Network_peer.Envelope.Incoming.t ->
logger:Logger.t ->
trust_system:Trust_system.t ->
Mina_ledger.Sync_ledger.Answer.t option Async_kernel.Deferred.tval get_staged_ledger_aux_and_pending_coinbases_at_hash :
frontier:Transition_frontier.t ->
Mina_base.State_hash.t ->
(Staged_ledger.Scan_state.t
* Mina_base.Ledger_hash.t
* Mina_base.Pending_coinbase.t
* Mina_state.Protocol_state.value list)
Core.Option.tval get_transition_chain :
frontier:Transition_frontier.t ->
Mina_base.State_hash.t list ->
Mina_block.t list optionval best_tip_path :
frontier:Transition_frontier.t ->
Mina_base.State_hash.t listmodule Root : sig ... end