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