Chain_services (mavkit-shell-libs.Mavryk_shell_services.Chain

type chain = [

| `Main
| `Test
| `Hash of Mavryk_base.TzPervasives.Chain_id.t

]

val parse_chain : string -> (chain, string) Stdlib.result

val to_string : chain -> string

val chain_arg : chain Mavryk_rpc.Arg.t

type invalid_block = {

hash : Mavryk_base.TzPervasives.Block_hash.t;
level : Stdlib.Int32.t;
errors : Mavryk_base.TzPervasives.error list;

}

type prefix = unit * chain

val path : (unit, prefix) Mavryk_rpc.Path.path

val chain_id : 
  Mavryk_rpc.Context.simple ->
  ?chain:chain ->
  unit ->
  Mavryk_base.TzPervasives.Chain_id.t Mavryk_base.TzPervasives.tzresult Lwt.t

val checkpoint : 
  Mavryk_rpc.Context.simple ->
  ?chain:chain ->
  unit ->
  (Mavryk_base.Block_header.t * int32 * int32 * History_mode.t)
    Mavryk_base.TzPervasives.tzresult
    Lwt.t

module Mempool = Block_services.Empty.Mempool

module Levels : sig ... end

module Blocks : sig ... end

module Invalid_blocks : sig ... end

module S : sig ... end