From 3f864ae113dfda1fb53b69e1282e7625406ec74d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= Date: Thu, 13 Oct 2016 17:05:53 +0200 Subject: [PATCH] Shell: display 12 characters for short Base48. A full block/operation identifier is around 53 characters. --- src/utils/hash.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils/hash.ml b/src/utils/hash.ml index d31e677b8..5126cf506 100644 --- a/src/utils/hash.ml +++ b/src/utils/hash.ml @@ -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 = (=)