22 lines
972 B
OCaml
22 lines
972 B
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2018. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
let () =
|
||
|
|
Client_commands.register Proto_alpha.hash @@
|
||
|
|
List.map (Clic.map_command (new Proto_alpha.wrap_full)) @@
|
||
|
|
Delegate_commands.accuser_commands ()
|
||
|
|
|
||
|
|
let select_commands _ _ =
|
||
|
|
return
|
||
|
|
(List.map
|
||
|
|
(Clic.map_command (new Proto_alpha.wrap_full))
|
||
|
|
(Delegate_commands.accuser_commands ()))
|
||
|
|
|
||
|
|
let () = Client_main_run.run select_commands
|