User_command_input
module Payload : sig ... end
module Sign_choice : sig ... end
module Stable : sig ... end
type t = Stable.Latest.t
val to_yojson : t -> Yojson.Safe.t
val fee_payer : t -> Mina_base.Account_id.t
val create :
?nonce:Mina_base.Account.Nonce.t ->
fee:Currency.Fee.t ->
fee_payer_pk:Signature_lib.Public_key.Compressed.t ->
valid_until:Mina_numbers.Global_slot.t option ->
memo:Mina_base.Signed_command_memo.t ->
body:Mina_base.Signed_command_payload.Body.t ->
signer:Signature_lib.Public_key.Compressed.t ->
sign_choice:Sign_choice.t ->
unit ->
t
val to_user_command :
?nonce_map:
(Mina_base.Account.Nonce.t * Mina_base.Account.Nonce.t)
Mina_base.Account_id.Map.t ->
get_current_nonce:
( Mina_base.Account_id.t ->
( [ `Min of Mina_numbers.Account_nonce.t ] * Mina_numbers.Account_nonce.t,
string )
Core_kernel.Result.t ) ->
get_account:
( Mina_base.Account_id.t ->
Mina_base.Account.t option Participating_state.T.t ) ->
constraint_constants:Genesis_constants.Constraint_constants.t ->
logger:Logger.t ->
t ->
(Mina_base.Signed_command.t
* (Mina_base.Account.Nonce.t * Mina_base.Account.Nonce.t)
Mina_base.Account_id.Map.t)
Async_kernel.Deferred.Or_error.t
val to_user_commands :
?nonce_map:
(Mina_base.Account.Nonce.t * Mina_base.Account.Nonce.t)
Mina_base.Account_id.Map.t ->
get_current_nonce:
( Mina_base.Account_id.t ->
( [ `Min of Mina_numbers.Account_nonce.t ] * Mina_numbers.Account_nonce.t,
string )
Core_kernel.Result.t ) ->
get_account:
( Mina_base.Account_id.t ->
Mina_base.Account.t option Participating_state.T.t ) ->
constraint_constants:Genesis_constants.Constraint_constants.t ->
logger:Logger.t ->
t list ->
Mina_base.Signed_command.t list Async_kernel.Deferred.Or_error.t