ligo/src/proto_alpha/bin_baker/main_baker_alpha.ml
2018-02-16 18:12:29 +01:00

17 lines
818 B
OCaml

(**************************************************************************)
(* *)
(* Copyright (c) 2014 - 2018. *)
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
(* *)
(* All rights reserved. No warranty, explicit or implicit, provided. *)
(* *)
(**************************************************************************)
let select_commands _ _ =
return
(List.map
(Cli_entries.map_command (new Proto_alpha.wrap_full))
(Client_baking_commands.commands ()))
let () = Client_main_run.run select_commands