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. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
type account = {
|
2016-11-14 18:54:21 +04:00
|
|
|
public_key_hash : Ed25519.Public_key_hash.t ;
|
2017-02-28 05:56:40 +04:00
|
|
|
public_key : Ed25519.Public_key.t ;
|
2016-09-08 21:13:10 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
val account_encoding: account Data_encoding.t
|
|
|
|
|
2017-02-28 05:56:40 +04:00
|
|
|
val accounts: Storage.t -> account list
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
val init: Storage.t -> Storage.t tzresult Lwt.t
|
2017-02-10 18:43:04 +04:00
|
|
|
|
|
|
|
val refill: Storage.t -> Storage.t tzresult Lwt.t
|