package tezos-protocol-020-PsParisC
Tezos protocol 020-PsParisC package
Install
Dune Dependency
Authors
Maintainers
Sources
tezos-octez-v20.1.tag.bz2
sha256=ddfb5076eeb0b32ac21c1eed44e8fc86a6743ef18ab23fff02d36e365bb73d61
sha512=d22a827df5146e0aa274df48bc2150b098177ff7e5eab52c6109e867eb0a1f0ec63e6bfbb0e3645a6c2112de3877c91a17df32ccbff301891ce4ba630c997a65
doc/src/tezos_raw_protocol_020_PsParisC/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(*****************************************************************************) (* *) (* SPDX-License-Identifier: MIT *) (* Copyright (c) 2023 Nomadic Labs, <contact@nomadic-labs.com> *) (* *) (*****************************************************************************) type item = { operation_hash : Operation_hash.t; rewarded : Signature.public_key_hash; misbehaviour : Misbehaviour_repr.t; } let item_encoding = let open Data_encoding in conv (fun {operation_hash; rewarded; misbehaviour} -> (operation_hash, rewarded, misbehaviour)) (fun (operation_hash, rewarded, misbehaviour) -> {operation_hash; rewarded; misbehaviour}) (obj3 (req "operation_hash" Operation_hash.encoding) (req "rewarded" Signature.Public_key_hash.encoding) (req "misbehaviour" Misbehaviour_repr.encoding)) type t = item list let encoding = Data_encoding.list item_encoding let add operation_hash rewarded misbehaviour list = list @ [{operation_hash; rewarded; misbehaviour}]