2017-01-30 22:10:16 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2017-01-30 22:10:16 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type error += No_identity_file of string
|
|
|
|
|
type error += Insufficient_proof_of_work of { expected: float }
|
|
|
|
|
|
|
|
|
|
val read:
|
|
|
|
|
?expected_pow:float ->
|
|
|
|
|
string -> P2p.Identity.t tzresult Lwt.t
|
|
|
|
|
|
|
|
|
|
type error += Existent_identity_file of string
|
|
|
|
|
|
|
|
|
|
val write: string -> P2p.Identity.t -> unit tzresult Lwt.t
|
