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/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); ]