ligo/src/lib_base/preapply_result.mli

31 lines
1.2 KiB
OCaml
Raw Normal View History

2016-11-29 00:54:32 +04:00
(**************************************************************************)
(* *)
2018-02-06 00:17:03 +04:00
(* Copyright (c) 2014 - 2018. *)
2016-11-29 00:54:32 +04:00
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
(* *)
(* All rights reserved. No warranty, explicit or implicit, provided. *)
(* *)
(**************************************************************************)
type 'error t = {
applied: (Operation_hash.t * Operation.t) list;
refused: (Operation.t * 'error list) Operation_hash.Map.t;
(* e.g. invalid signature *)
branch_refused: (Operation.t * 'error list) Operation_hash.Map.t;
(* e.g. insufficent balance *)
branch_delayed: (Operation.t * 'error list) Operation_hash.Map.t;
(* e.g. timestamp in the future *)
}
2016-11-29 00:54:32 +04:00
val empty : 'error t
2016-11-29 00:54:32 +04:00
val map :
(Operation.t * 'a list -> Operation.t * 'b list) -> 'a t -> 'b t
2016-11-29 00:54:32 +04:00
val operations :
'error t -> Operation.t Operation_hash.Map.t
2017-01-14 16:13:59 +04:00
val encoding :
'error list Data_encoding.t ->
'error t Data_encoding.t