~ HashCode.to_denomination_hash
This commit is contained in:
parent
cf20d60bb6
commit
32fa5b1fc3
2 changed files with 4 additions and 11 deletions
|
|
@ -69,14 +69,12 @@ module HashCode : sig
|
|||
type t
|
||||
|
||||
val hash : string -> t
|
||||
val to_octets : t -> string
|
||||
val to_denomination_hash : t -> Bin_type.DenominationHash.t
|
||||
val jsont : t Jsont.t
|
||||
end = struct
|
||||
type t = B32.t
|
||||
|
||||
(* TODO rm
|
||||
for convertion to DenominationHash *)
|
||||
let to_octets s = s
|
||||
let to_denomination_hash s = Bin_type.DenominationHash.of_octets s
|
||||
|
||||
let hash s =
|
||||
let open Digestif.SHA512 in
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue