Shell: display 12 characters for short Base48.
A full block/operation identifier is around 53 characters.
This commit is contained in:
parent
1ce2643dc7
commit
3f864ae113
@ -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 = (=)
|
||||
|
Loading…
Reference in New Issue
Block a user