From 491c269f5b324c60bdbb12605b8baf5b897c6ffa Mon Sep 17 00:00:00 2001
From: Pierrick Couderc <pierrick.couderc@nomadic-labs.com>
Date: Mon, 16 Jun 2025 15:50:58 +0200
Subject: [PATCH] Crypto/Blake2B: add an alternative functor that export
 conversion functions

---
 src/lib_crypto/blake2B.ml  | 2 ++
 src/lib_crypto/blake2B.mli | 8 ++++++++
 2 files changed, 10 insertions(+)

diff --git a/src/lib_crypto/blake2B.ml b/src/lib_crypto/blake2B.ml
index e3508ecc9959..fc0b627d1946 100644
--- a/src/lib_crypto/blake2B.ml
+++ b/src/lib_crypto/blake2B.ml
@@ -179,6 +179,8 @@ module Make_minimal (K : Name) = struct
   end)
 end
 
+module Make_minimal_with_data (Name : Name) = Make_minimal (Name)
+
 module type Register = sig
   val register_encoding :
     prefix:string ->
diff --git a/src/lib_crypto/blake2B.mli b/src/lib_crypto/blake2B.mli
index 83dd2e650d28..59f83c89f6f1 100644
--- a/src/lib_crypto/blake2B.mli
+++ b/src/lib_crypto/blake2B.mli
@@ -54,6 +54,14 @@ end
 (** Builds a new Hash type using Blake2B. *)
 module Make_minimal (Name : Name) : S.MINIMAL_HASH
 
+(** Builds a new Hash type using Blake2B, with the necessary functions for
+    conversion. *)
+module Make_minimal_with_data (Name : Name) : sig
+  include S.MINIMAL_HASH
+
+  include S.RAW_DATA with type t := t
+end
+
 module type Register = sig
   val register_encoding :
     prefix:string ->
-- 
GitLab