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/misbehaviour.ml.html
Source file misbehaviour.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(*****************************************************************************) (* *) (* SPDX-License-Identifier: MIT *) (* Copyright (c) 2023 Nomadic Labs, <contact@nomadic-labs.com> *) (* *) (*****************************************************************************) type t = Double_baking | Double_attesting let encoding = let open Data_encoding in union ~tag_size:`Uint8 [ case (Tag 0) ~title:"Double baking" (constant "double baking") (function Double_baking -> Some () | _ -> None) (fun () -> Double_baking); case (Tag 1) ~title:"Double attesting" (constant "double attesting") (function Double_attesting -> Some () | _ -> None) (fun () -> Double_attesting); ]