2018-01-15 22:09:25 +01:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2018-06-04 14:35:06 +02:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2018-01-15 22:09:25 +01:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2018-02-11 19:17:40 +01:00
|
|
|
open Proto_alpha
|
|
|
|
open Alpha_context
|
2018-01-15 22:09:25 +01:00
|
|
|
|
2018-06-04 14:35:06 +02:00
|
|
|
type t
|
|
|
|
type incremental = t
|
2018-01-15 22:09:25 +01:00
|
|
|
|
2018-06-04 14:35:06 +02:00
|
|
|
val predecessor: incremental -> Block.t
|
2018-01-15 22:09:25 +01:00
|
|
|
|
2018-06-04 14:35:06 +02:00
|
|
|
val level: incremental -> int32
|
2018-01-15 22:09:25 +01:00
|
|
|
|
2018-06-04 14:35:06 +02:00
|
|
|
val begin_construction:
|
|
|
|
?priority:int ->
|
|
|
|
?timestamp:Time.t ->
|
|
|
|
Block.t -> incremental tzresult Lwt.t
|
|
|
|
|
|
|
|
val add_operation:
|
|
|
|
incremental -> Operation.t -> incremental tzresult Lwt.t
|
|
|
|
|
|
|
|
val finalize_block: incremental -> Block.t tzresult Lwt.t
|
|
|
|
|
|
|
|
val rpc_ctxt: incremental Alpha_environment.RPC_context.simple
|