add denom revoke
This commit is contained in:
parent
edbe3ceb70
commit
472463e68b
7 changed files with 84 additions and 9 deletions
|
|
@ -69,6 +69,7 @@ module HashCode : sig
|
|||
type t
|
||||
|
||||
val hash : string -> t
|
||||
val of_b32 : B32.t -> (t, string) result
|
||||
val to_denomination_hash : t -> Bin_type.DenominationHash.t
|
||||
val jsont : t Jsont.t
|
||||
end = struct
|
||||
|
|
@ -80,6 +81,7 @@ end = struct
|
|||
let open Digestif.SHA512 in
|
||||
s |> digest_string |> to_raw_string
|
||||
|
||||
let of_b32 = B32.decode
|
||||
let jsont = B32.jsont
|
||||
end
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue