42 lines
1.4 KiB
OCaml
42 lines
1.4 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Proto_alpha
|
|
open Alpha_context
|
|
|
|
type block_info = {
|
|
hash: Block_hash.t ;
|
|
chain_id: Chain_id.t ;
|
|
predecessor: Block_hash.t ;
|
|
fitness: MBytes.t list ;
|
|
timestamp: Time.t ;
|
|
protocol: Protocol_hash.t ;
|
|
level: Level.t ;
|
|
}
|
|
|
|
val info:
|
|
#Proto_alpha.rpc_context ->
|
|
?include_ops:bool -> Block_services.block -> block_info tzresult Lwt.t
|
|
|
|
val compare:
|
|
block_info -> block_info -> int
|
|
|
|
val monitor:
|
|
#Proto_alpha.rpc_context ->
|
|
?include_ops:bool -> ?length:int -> ?heads:Block_hash.t list ->
|
|
?delay:int -> ?min_date:Time.t -> ?min_heads:int ->
|
|
?compare:(block_info -> block_info -> int) ->
|
|
unit -> block_info list tzresult Lwt_stream.t tzresult Lwt.t
|
|
|
|
val blocks_from_cycle:
|
|
#Proto_alpha.rpc_context ->
|
|
Block_services.block ->
|
|
Cycle.t ->
|
|
Block_hash.t list tzresult Lwt.t
|