verify MasterSignatures
This commit is contained in:
parent
5001cc35c3
commit
fa21837947
6 changed files with 139 additions and 26 deletions
|
|
@ -69,10 +69,15 @@ module HashCode : sig
|
|||
type t
|
||||
|
||||
val hash : string -> t
|
||||
val to_octets : t -> string
|
||||
val jsont : t Jsont.t
|
||||
end = struct
|
||||
type t = B32.t
|
||||
|
||||
(* TODO rm
|
||||
for convertion to DenominationHash *)
|
||||
let to_octets s = s
|
||||
|
||||
let hash s =
|
||||
let open Digestif.SHA512 in
|
||||
s |> digest_string |> to_raw_string
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue