Header (mavkit-protocol-alpha-libs.Mavryk_client_alpha.Mockup.M.Block

val shell_header : 
  Mavryk_rpc.Context.simple ->
  ?chain:[ `Main | `Test | `Hash of Mavryk_base.TzPervasives.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Savepoint ] * int
    | `Hash of Mavryk_base.TzPervasives.Block_hash.t * int
    | `Level of Stdlib.Int32.t ] ->
  unit ->
  Mavryk_base.Block_header.shell_header Mavryk_base.TzPervasives.tzresult Lwt.t

val protocol_data : 
  Mavryk_rpc.Context.simple ->
  ?chain:[ `Main | `Test | `Hash of Mavryk_base.TzPervasives.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Savepoint ] * int
    | `Hash of Mavryk_base.TzPervasives.Block_hash.t * int
    | `Level of Stdlib.Int32.t ] ->
  unit ->
  Protocol.block_header_data Mavryk_base.TzPervasives.tzresult Lwt.t

val raw_protocol_data : 
  Mavryk_rpc.Context.simple ->
  ?chain:[ `Main | `Test | `Hash of Mavryk_base.TzPervasives.Chain_id.t ] ->
  ?block:
    [ `Genesis
    | `Head of int
    | `Alias of [ `Caboose | `Checkpoint | `Savepoint ] * int
    | `Hash of Mavryk_base.TzPervasives.Block_hash.t * int
    | `Level of Stdlib.Int32.t ] ->
  unit ->
  Mavryk_base.TzPervasives.Bytes.t Mavryk_base.TzPervasives.tzresult Lwt.t