tezos-shell-services 7.4 · OCaml Package

type chain_status =

| Active_main of Tezos_crypto.Chain_id.t
| Active_test of {
1. chain : Tezos_crypto.Chain_id.t;
2. protocol : Tezos_crypto.Protocol_hash.t;
3. expiration_date : Tezos_base.Time.Protocol.t;
}
| Stopping of Tezos_crypto.Chain_id.t

val bootstrapped : 
  Tezos_rpc.RPC_context.streamed ->
  ((Tezos_crypto.Block_hash.t * Tezos_base.Time.Protocol.t) Lwt_stream.t
   * Tezos_rpc.RPC_context.stopper,
    Tezos_error_monad.Error_monad.error list)
    result
    Lwt.t

val valid_blocks : 
  Tezos_rpc.RPC_context.streamed ->
  ?chains:Chain_services.chain list ->
  ?protocols:Tezos_crypto.Protocol_hash.t list ->
  ?next_protocols:Tezos_crypto.Protocol_hash.t list ->
  unit ->
  (((Tezos_crypto.Chain_id.t * Tezos_crypto.Block_hash.t)
    * Tezos_base.Block_header.t)
     Lwt_stream.t
   * Tezos_rpc.RPC_context.stopper,
    Tezos_error_monad.Error_monad.error list)
    result
    Lwt.t

val heads : 
  Tezos_rpc.RPC_context.streamed ->
  ?next_protocols:Tezos_crypto.Protocol_hash.t list ->
  Chain_services.chain ->
  ((Tezos_crypto.Block_hash.t * Tezos_base.Block_header.t) Lwt_stream.t
   * Tezos_rpc.RPC_context.stopper,
    Tezos_error_monad.Error_monad.error list)
    result
    Lwt.t

val protocols : 
  Tezos_rpc.RPC_context.streamed ->
  (Tezos_crypto.Protocol_hash.t Lwt_stream.t * Tezos_rpc.RPC_context.stopper,
    Tezos_error_monad.Error_monad.error list)
    result
    Lwt.t

val commit_hash : 
  Tezos_rpc.RPC_context.simple ->
  (string, Tezos_error_monad.Error_monad.error list) result Lwt.t

val active_chains : 
  Tezos_rpc.RPC_context.streamed ->
  (chain_status list Lwt_stream.t * Tezos_rpc.RPC_context.stopper,
    Tezos_error_monad.Error_monad.error list)
    result
    Lwt.t

module S : sig ... end