2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2016-11-14 18:55:24 +04:00
|
|
|
module Ed25519 = Environment.Ed25519
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2016-11-14 18:54:21 +04:00
|
|
|
module Public_key_hash :
|
|
|
|
Client_aliases.Alias with type t = Ed25519.Public_key_hash.t
|
2017-02-28 05:56:40 +04:00
|
|
|
module Public_key : Client_aliases.Alias with type t = Ed25519.Public_key.t
|
|
|
|
module Secret_key : Client_aliases.Alias with type t = Ed25519.Secret_key.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
val get_key:
|
2016-12-03 16:05:02 +04:00
|
|
|
Client_commands.context ->
|
2016-09-08 21:13:10 +04:00
|
|
|
Public_key_hash.t ->
|
|
|
|
( string * Public_key.t * Secret_key.t ) tzresult Lwt.t
|
|
|
|
|
2017-02-28 11:18:06 +04:00
|
|
|
val get_keys:
|
|
|
|
Client_commands.context ->
|
|
|
|
( string * Public_key_hash.t * Public_key.t * Secret_key.t ) list Lwt.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2016-12-03 16:05:02 +04:00
|
|
|
val commands: unit -> Client_commands.command list
|