Shell: display 12 characters for short Base48.

A full block/operation identifier is around 53 characters.
This commit is contained in:
Grégoire Henry 2016-10-13 17:05:53 +02:00
parent 1ce2643dc7
commit 3f864ae113

View File

@ -89,7 +89,7 @@ module Make_SHA256 (K : Name) = struct
| _ -> Format.kasprintf failwith "Unexpected hash (%s)" K.name
let to_b48check s = Base48.encode (Hash s)
let to_short_b48check s = String.sub (to_b48check s) 0 8
let to_short_b48check s = String.sub (to_b48check s) 0 12
let compare = String.compare
let equal : t -> t -> bool = (=)