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/sc_rollup_dal_parameters_repr.ml.html
Source file sc_rollup_dal_parameters_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(*****************************************************************************) (* *) (* SPDX-License-Identifier: MIT *) (* Copyright (c) 2023 Marigold <contact@marigold.dev> *) (* *) (*****************************************************************************) type t = { number_of_slots : int64; attestation_lag : int64; slot_size : int64; page_size : int64; } let pp ppf {number_of_slots; attestation_lag; slot_size; page_size} = Format.fprintf ppf "number_of_slots: %Ld ; attestation_lag: %Ld ; slot_size: %Ld ; page_size: \ %Ld" number_of_slots attestation_lag slot_size page_size let equal t1 t2 = Compare.Int64.( t1.attestation_lag = t2.attestation_lag && t1.slot_size = t2.slot_size && t1.page_size = t2.page_size) let encoding = let open Data_encoding in conv (fun {number_of_slots; attestation_lag; slot_size; page_size} -> (number_of_slots, attestation_lag, slot_size, page_size)) (fun (number_of_slots, attestation_lag, slot_size, page_size) -> {number_of_slots; attestation_lag; slot_size; page_size}) (obj4 (req "number_of_slots" int64) (req "attestation_lag" int64) (req "slot_size" int64) (req "page_size" int64))