Module Make.Block_header

type shell_header = Mavryk_base.TzPervasives.Block_header.shell_header = {
  1. level : Int32.t;
    (*

    The number of preceding block in this chain, i.e. the genesis has level 0.

    *)
  2. proto_level : int;
    (*

    The number of preceding protocol change in the chain (modulo 256), i.e. the genesis has proto_level 0.

    *)
  3. predecessor : Block_hash.t;
  4. timestamp : Time.t;
  5. validation_passes : int;
  6. operations_hash : Operation_list_list_hash.t;
  7. fitness : MBytes.t list;
  8. context : Context_hash.t;
}
val shell_header_encoding : shell_header Data_encoding.t
type t = Mavryk_base.TzPervasives.Block_header.t = {
  1. shell : shell_header;
  2. protocol_data : MBytes.t;
}
include S.HASHABLE with type t := t and type hash := Block_hash.t
include S.T with type t := t
include Compare.S with type t := t
val (=) : t -> t -> bool
val (<>) : t -> t -> bool
val (<) : t -> t -> bool
val (<=) : t -> t -> bool
val (>=) : t -> t -> bool
val (>) : t -> t -> bool
val compare : t -> t -> int
val equal : t -> t -> bool
val max : t -> t -> t
val min : t -> t -> t
val pp : Format.formatter -> t -> unit
val encoding : t Data_encoding.t
val to_bytes : t -> MBytes.t
val of_bytes : MBytes.t -> t option
val hash : t -> Block_hash.t
val hash_raw : MBytes.t -> Block_hash.t