package tezos-protocol-alpha
Tezos protocol alpha package
Install
Dune Dependency
Authors
Maintainers
Sources
octez-19.1.tar.gz
sha256=55ea1fb8bb3273a7fc270ca8f650d45c56449665619482aad9bc12f3ea736b7e
sha512=fec850fc2d17d7490bbabd5147d62aad13b3aaed8774270f8a38ab419670ed03e0fd30cf8642a97984eca5c2446726fe590ad99c015f7ec50919dc7652f25053
doc/src/tezos_raw_protocol_alpha/denunciations_repr.ml.html
Source file denunciations_repr.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45(*****************************************************************************) (* *) (* SPDX-License-Identifier: MIT *) (* Copyright (c) 2023 Nomadic Labs, <contact@nomadic-labs.com> *) (* *) (*****************************************************************************) type misbehaviour_cycle = Current | Previous let misbehaviour_cycle_encoding = let open Data_encoding in conv_with_guard (function Current -> 0 | Previous -> 1) (function | 0 -> Ok Current | 1 -> Ok Previous | _ -> Error "Invalid misbehaviour cycle") int8 type item = { operation_hash : Operation_hash.t; rewarded : Signature.public_key_hash; misbehaviour : Misbehaviour.t; misbehaviour_cycle : misbehaviour_cycle; } let item_encoding = let open Data_encoding in conv (fun {operation_hash; rewarded; misbehaviour; misbehaviour_cycle} -> (operation_hash, rewarded, misbehaviour, misbehaviour_cycle)) (fun (operation_hash, rewarded, misbehaviour, misbehaviour_cycle) -> {operation_hash; rewarded; misbehaviour; misbehaviour_cycle}) (obj4 (req "operation_hash" Operation_hash.encoding) (req "rewarded" Signature.Public_key_hash.encoding) (req "misbehaviour" Misbehaviour.encoding) (req "misbehaviour_cycle" misbehaviour_cycle_encoding)) type t = item list let encoding = Data_encoding.list item_encoding let add operation_hash rewarded misbehaviour misbehaviour_cycle list = list @ [{operation_hash; rewarded; misbehaviour; misbehaviour_cycle}]