package tezos-protocol-alpha
Tezos protocol alpha package
Install
Dune Dependency
Authors
Maintainers
Sources
octez-19.0.tar.gz
sha256=c6df840ebbf115e454db949028c595bec558a59a66cade73b52a6d099d6fa4d4
sha512=d8aee903b9fe130d73176bc8ec38b78c9ff65317da3cb4f3415f09af0c625b4384e7498201fdb61aa39086a7d5d409d0ab3423f9bc3ab989a680cf444a79bc13
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}]