31 lines
1.0 KiB
OCaml
Raw Normal View History

2018-01-15 22:09:25 +01: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. *)
(* *)
(**************************************************************************)
open Proto_alpha
open Alpha_context
2018-01-15 22:09:25 +01:00
type t
type incremental = t
2018-01-15 22:09:25 +01:00
val predecessor: incremental -> Block.t
2018-01-15 22:09:25 +01:00
val level: incremental -> int32
2018-01-15 22:09:25 +01: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