Remove reminiscent trace of Sha256

This commit is contained in:
Benjamin Canou 2017-11-08 17:52:21 +01:00 committed by Benjamin Canou
parent cb1e5cc396
commit 6de9c68e81
4 changed files with 6 additions and 6 deletions

View File

@ -103,7 +103,7 @@ module type PrefixedName = sig
val b58check_prefix : string val b58check_prefix : string
end end
(** Builds a new Hash type using Sha256. *) (** Builds a new Hash type using Blake2B. *)
module Make_minimal_Blake2B (Name : Name) : MINIMAL_HASH module Make_minimal_Blake2B (Name : Name) : MINIMAL_HASH
module Make_Blake2B module Make_Blake2B

View File

@ -1180,7 +1180,7 @@ for under/overflows.
* `H`: * `H`:
Compute a cryptographic hash of the value contents using the Compute a cryptographic hash of the value contents using the
Sha256 cryptographic algorithm. Blake2B cryptographic hash function.
:: 'a : 'S -> string : 'S :: 'a : 'S -> string : 'S
@ -1448,7 +1448,7 @@ All domain specific constants are Micheline strings with specific formats:
- `contract`s are the raw strings returned by JSON RPCs or the command - `contract`s are the raw strings returned by JSON RPCs or the command
line interface and cannot be forged by hand so their format is of line interface and cannot be forged by hand so their format is of
no interest here. no interest here.
- `key`s are `Sha256` hashes of `ed25519` public keys encoded in - `key`s are `Blake2B` hashes of `ed25519` public keys encoded in
`base58` format with the following custom alphabet: `base58` format with the following custom alphabet:
`"eXMNE9qvHPQDdcFx5J86rT7VRm2atAypGhgLfbS3CKjnksB4"`. `"eXMNE9qvHPQDdcFx5J86rT7VRm2atAypGhgLfbS3CKjnksB4"`.
- `signature`s are `ed25519` signatures as a series of hex-encoded bytes. - `signature`s are `ed25519` signatures as a series of hex-encoded bytes.

View File

@ -310,7 +310,7 @@ module Make_Blake2B (R : sig
~binary: ~binary:
(conv to_bytes of_bytes_exn (Fixed.bytes size)) (conv to_bytes of_bytes_exn (Fixed.bytes size))
~json: ~json:
(describe ~title: (K.title ^ " (Base58Check-encoded Sha256)") @@ (describe ~title: (K.title ^ " (Base58Check-encoded Blake2B hash)") @@
conv to_b58check (Data_encoding.Json.wrap_error of_b58check_exn) string) conv to_b58check (Data_encoding.Json.wrap_error of_b58check_exn) string)
let param ?(name=K.name) ?(desc=K.title) t = let param ?(name=K.name) ?(desc=K.title) t =
@ -628,7 +628,7 @@ module Net_id = struct
splitted splitted
~binary: (Fixed.string size) ~binary: (Fixed.string size)
~json: ~json:
(describe ~title: (title ^ " (Base58Check-encoded Sha256)") @@ (describe ~title: (title ^ " (Base58Check-encoded Blake2B hash)") @@
conv to_b58check (Data_encoding.Json.wrap_error of_b58check_exn) string) conv to_b58check (Data_encoding.Json.wrap_error of_b58check_exn) string)
let param ?(name=name) ?(desc=title) t = let param ?(name=name) ?(desc=title) t =

View File

@ -145,7 +145,7 @@ module type PrefixedName = sig
val b58check_prefix : string val b58check_prefix : string
end end
(** Builds a new Hash type using Sha256. *) (** Builds a new Hash type using Blake2B. *)
module Make_minimal_Blake2B (Name : Name) : INTERNAL_MINIMAL_HASH module Make_minimal_Blake2B (Name : Name) : INTERNAL_MINIMAL_HASH
module Make_Blake2B module Make_Blake2B
(Register : sig (Register : sig