ligo/src/lib_crypto/block_hash.ml
dbornside e7dba18980 semantic logging for client baking
AMENDED: Syn has always been DSL, Semantic has always been
Make_semantic.
2018-06-29 14:52:46 +02:00

25 lines
1.0 KiB
OCaml

(**************************************************************************)
(* *)
(* Copyright (c) 2014 - 2018. *)
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
(* *)
(* All rights reserved. No warranty, explicit or implicit, provided. *)
(* *)
(**************************************************************************)
include Blake2B.Make (Base58) (struct
let name = "block_hash"
let title = "A block identifier"
let b58check_prefix = Base58.Prefix.block_hash
let size = None
end)
module Logging = struct
let tag = Tag.def ~doc:"Block Hash" "block_hash" pp_short
let predecessor_tag = Tag.def ~doc:"Block Predecessor Hash" "predecessor_hash" pp_short
end
let () =
Base58.check_encoded_prefix b58check_encoding "B" 51