2016-11-29 00:54:32 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-11-29 00:54:32 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
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
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val empty : 'error t
|
2016-11-29 00:54:32 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val map :
|
|
|
|
(Operation.t * 'a list -> Operation.t * 'b list) -> 'a t -> 'b t
|
2016-11-29 00:54:32 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val operations :
|
|
|
|
'error t -> Operation.t Operation_hash.Map.t
|
2017-01-14 16:13:59 +04:00
|
|
|
|
2017-11-27 09:13:12 +04:00
|
|
|
val encoding :
|
|
|
|
'error list Data_encoding.t ->
|
|
|
|
'error t Data_encoding.t
|