swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-02-25 21:56:30 +01:00
parent 5763b13705
commit 7be0e28f0a
4 changed files with 41 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

21
tools/offline.ml
View file

@ -292,7 +292,7 @@ let global_fees_cmd =
~account_fee ~purse_fee ~history_expiration ~purse_account_limit
~purse_timeout
let wire_cmd =
let enable_wire_cmd =
let doc = "Enable wire method." in
let payto_uri =
Arg.(required & opt (some string) None & info [ "payto_uri" ])
@ -301,14 +301,26 @@ let wire_cmd =
Arg.(value & opt (some string) None & info [ "bank_label" ])
in
let priority = Arg.(value & opt (some int) None & info [ "priority" ]) in
Cmd.make (Cmd.info "wire" ~doc)
Cmd.make (Cmd.info "enable-wire" ~doc)
@@
let+ output = output
and+ master_key = master_key
and+ payto_uri = payto_uri
and+ bank_label = bank_label
and+ priority = priority in
wire ~output ~master_key ~payto_uri ~bank_label ~priority
enable_wire ~output ~master_key ~payto_uri ~bank_label ~priority
let disable_wire_cmd =
let doc = "Disable wire method." in
let payto_uri =
Arg.(required & opt (some string) None & info [ "payto_uri" ])
in
Cmd.make (Cmd.info "disable-wire" ~doc)
@@
let+ output = output
and+ master_key = master_key
and+ payto_uri = payto_uri in
disable_wire ~output ~master_key ~payto_uri
let drain_cmd =
let doc =
@ -354,7 +366,8 @@ let cli =
wire_fee_cmd;
global_fees_cmd;
drain_cmd;
wire_cmd;
enable_wire_cmd;
disable_wire_cmd;
(* - *)
test_hash64_cmd;
]