Proto/env: export *_hash.zero

src/lib_base/s.ml

@@ -80,8 +80,6 @@ module type INTERNAL_HASH = sig
 
   include Tezos_crypto.S.HASH
 
-  val zero: t
-
   val of_b58check: string -> t tzresult
   val of_bytes: MBytes.t -> t tzresult
 

src/lib_crypto/blake2B.ml

@@ -107,6 +107,11 @@ module Make_minimal (K : Name) = struct
     and p6 = if len > 10 then String.sub p 10 (len - 10) else "" in
     [ p1 ; p2 ; p3 ; p4 ; p5 ; p6 ]
 
+  let zero =
+    match of_hex (String.make (size * 2) '0') with
+    | Some c -> c
+    | None -> assert false
+
 end
 
 module Make (R : sig
@@ -121,11 +126,6 @@ module Make (R : sig
 
   include Make_minimal(K)
 
-  let zero =
-    match of_hex (String.make (size * 2) '0') with
-    | Some c -> c
-    | None -> assert false
-
   (* Serializers *)
 
   type Base58.data += Hash of t

src/lib_crypto/s.ml

@@ -51,14 +51,14 @@ module type MINIMAL_HASH = sig
   val prefix_path: string -> string list
   val path_length: int
 
+  val zero: t
+
 end
 
 module type HASH = sig
 
   include MINIMAL_HASH
 
-  val zero: t
-
   val to_b58check: t -> string
   val to_short_b58check: t -> string
 

src/lib_protocol_environment_sigs/v1/s.mli

@@ -88,6 +88,8 @@ module type MINIMAL_HASH = sig
   val prefix_path: string -> string list
   val path_length: int
 
+  val zero: t
+
 end
 
 module type HASH = sig