2017-11-11 06:34:12 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2018-02-06 00:17:03 +04:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2017-11-11 06:34:12 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
2018-01-24 15:48:25 +04:00
|
|
|
type error += Invalid_locator of P2p_peer.Id.t * Block_locator.t
|
2017-12-17 22:51:06 +04:00
|
|
|
|
2017-11-11 06:34:12 +04:00
|
|
|
val create:
|
|
|
|
?notify_new_block: (State.Block.t -> unit) ->
|
2017-11-13 17:25:02 +04:00
|
|
|
block_header_timeout:float ->
|
|
|
|
block_operations_timeout: float ->
|
2017-11-11 06:34:12 +04:00
|
|
|
Block_validator.t ->
|
2018-01-24 15:48:25 +04:00
|
|
|
P2p_peer.Id.t -> Distributed_db.net_db ->
|
2017-11-11 06:34:12 +04:00
|
|
|
Block_locator.t -> t
|
|
|
|
|
|
|
|
val wait: t -> unit tzresult Lwt.t
|
|
|
|
|
|
|
|
val cancel: t -> unit Lwt.t
|