2018-04-22 12:50:34 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2018-04-22 14:53:35 +04:00
|
|
|
(** [wait_for_operation_inclusion chain ~predecessors ~confirmations
|
|
|
|
oph] waits for `oph` to appears in the main chain with at least
|
|
|
|
`confirmations`. It returns the hash of the block that contains
|
|
|
|
the operation and the operation position in the block.
|
|
|
|
|
|
|
|
This functions also looks for the operations in the `predecessors`
|
|
|
|
of the intial chain head. *)
|
2018-04-22 12:50:34 +04:00
|
|
|
val wait_for_operation_inclusion:
|
|
|
|
#Client_context.full ->
|
2018-04-16 02:44:24 +04:00
|
|
|
chain:Chain_services.chain ->
|
2018-04-22 12:50:34 +04:00
|
|
|
?predecessors:int ->
|
|
|
|
?confirmations:int ->
|
|
|
|
Operation_hash.t ->
|
2018-04-22 14:53:35 +04:00
|
|
|
(Block_hash.t * int * int) tzresult Lwt.t
|