44 lines
1.4 KiB
OCaml
44 lines
1.4 KiB
OCaml
|
(**************************************************************************)
|
||
|
|
(* *)
|
||
|
|
(* Copyright (c) 2014 - 2016. *)
|
||
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
||
|
|
(* *)
|
||
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
||
|
|
(* *)
|
||
|
|
(**************************************************************************)
|
||
|
|
|
||
|
|
open Tezos_hash
|
||
|
|
|
||
|
|
type error +=
|
||
|
|
| Too_late_revelation
|
||
|
|
| Too_early_revelation
|
||
|
|
| Previously_revealed_nonce
|
||
|
|
| Unexpected_nonce
|
||
|
|
|
||
|
|
type t = Seed_repr.nonce
|
||
|
|
type nonce = t
|
||
|
|
val encoding: nonce Data_encoding.t
|
||
|
|
|
||
|
|
val record_hash:
|
||
|
|
Storage.t ->
|
||
|
|
Ed25519.public_key_hash -> Tez_repr.t ->
|
||
|
|
Nonce_hash.t -> Storage.t tzresult Lwt.t
|
||
|
|
|
||
|
|
val reveal:
|
||
|
|
Storage.t -> Level_repr.t -> nonce ->
|
||
|
|
(Storage.t * Ed25519.public_key_hash * Tez_repr.t) tzresult Lwt.t
|
||
|
|
|
||
|
|
type status =
|
||
|
|
| Unrevealed of {
|
||
|
|
nonce_hash: Tezos_hash.Nonce_hash.t ;
|
||
|
|
delegate_to_reward: Ed25519.public_key_hash ;
|
||
|
|
reward_amount: Tez_repr.t ;
|
||
|
|
}
|
||
|
|
| Revealed of nonce
|
||
|
|
|
||
|
|
val get: Storage.t -> Level_repr.t -> status tzresult Lwt.t
|
||
|
|
|
||
|
|
val of_bytes: MBytes.t -> nonce tzresult
|
||
|
|
val hash: nonce -> Nonce_hash.t
|
||
|
|
val check_hash: nonce -> Nonce_hash.t -> bool
|