Command (mavryk-protocol-genesis.Mavryk_raw_protocol

type t =

| Activate of {
1. protocol : Mavryk_protocol_environment_genesis.Protocol_hash.t;
2. fitness : Mavryk_protocol_environment_genesis.Fitness.t;
3. protocol_parameters : Mavryk_protocol_environment_genesis.MBytes.t;
}
| Activate_testchain of {
1. protocol : Mavryk_protocol_environment_genesis.Protocol_hash.t;
2. fitness : Mavryk_protocol_environment_genesis.Fitness.t;
3. protocol_parameters : Mavryk_protocol_environment_genesis.MBytes.t;
4. delay : Mavryk_protocol_environment_genesis.Int64.t;
}

val mk_case : 
  string ->
  'a Mavryk_protocol_environment_genesis.Data_encoding.encoding ->
  'b Mavryk_protocol_environment_genesis.Data_encoding.encoding

val encoding : t Mavryk_protocol_environment_genesis.Data_encoding.encoding

val signed_encoding : 
  (t * Mavryk_protocol_environment_genesis.Signature.t)
    Mavryk_protocol_environment_genesis.Data_encoding.encoding

val forge : 
  Mavryk_protocol_environment_genesis.Block_header.shell_header ->
  t ->
  Mavryk_protocol_environment_genesis.MBytes.t