Cpmm_repr.Parameter
type add_liquidity = {
owner : Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t;
minLqtMinted : Z.t;
maxTokensDeposited : Z.t;
deadline : Mavryk_protocol_alpha.Protocol.Script_timestamp.t;
}
type remove_liquidity = {
to_ : Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t;
lqtBurned : Z.t;
minXtzWithdrawn : Mavryk_protocol_alpha.Protocol.Alpha_context.Tez.t;
minTokensWithdrawn : Z.t;
deadline : Mavryk_protocol_alpha.Protocol.Script_timestamp.t;
}
type token_to_token = {
outputDexterContract : Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t;
minTokensBought : Z.t;
to_ : Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t;
tokensSold : Z.t;
deadline : Mavryk_protocol_alpha.Protocol.Script_timestamp.t;
}
type token_to_xtz = {
to_ : Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t;
tokensSold : Z.t;
minXtzBought : Mavryk_protocol_alpha.Protocol.Alpha_context.Tez.t;
deadline : Mavryk_protocol_alpha.Protocol.Script_timestamp.t;
}
type xtz_to_token = {
to_ : Mavryk_protocol_alpha.Protocol.Alpha_context.Contract.t;
minTokensBought : Z.t;
deadline : Mavryk_protocol_alpha.Protocol.Script_timestamp.t;
}
type t =
| AddLiquidity of add_liquidity
| Default of unit
| RemoveLiquidity of remove_liquidity
| TokenToToken of token_to_token
| TokenToXtz of token_to_xtz
| XtzToToken of xtz_to_token
val addLiquidity : add_liquidity -> t
val default : unit -> t
val removeLiquidity : remove_liquidity -> t
val tokenToToken : token_to_token -> t
val tokenToXtz : token_to_xtz -> t
val xtzToToken : xtz_to_token -> t
val add_liquidity_to_string : add_liquidity -> string
val remove_liquidity_to_string : remove_liquidity -> string
val token_to_token_to_string : token_to_token -> string
val token_to_xtz_to_string : token_to_xtz -> string
val xtz_to_token_to_string : xtz_to_token -> string
val to_string : t -> string
val entrypoint_of_parameter :
t ->
Mavryk_protocol_alpha.Protocol.Alpha_context.Entrypoint.t
val pp : Stdlib.Format.formatter -> t -> unit
val to_expr_rooted :
loc:int ->
t ->
(int, Mavryk_protocol_alpha.Protocol.Michelson_v1_primitives.prim)
Mavryk_micheline.Micheline.node
val to_expr :
loc:int ->
t ->
(int, Mavryk_protocol_alpha.Protocol.Michelson_v1_primitives.prim)
Mavryk_micheline.Micheline.node
val to_michelson_string : t -> string