From cb28ca1cd52e3e28ed3f0fa67d12dc2e9d761227 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= <gregoire.henry@tezos.com>
Date: Sun, 13 May 2018 20:20:27 +0200
Subject: [PATCH] Stdlib: reintroduce `MBytes.pp_hex`

---
 src/lib_stdlib/mBytes.ml  | 4 ++++
 src/lib_stdlib/mBytes.mli | 1 +
 2 files changed, 5 insertions(+)

diff --git a/src/lib_stdlib/mBytes.ml b/src/lib_stdlib/mBytes.ml
index 24a0be90d..6e558bb3b 100644
--- a/src/lib_stdlib/mBytes.ml
+++ b/src/lib_stdlib/mBytes.ml
@@ -27,3 +27,7 @@ let to_hex t =
 
 let of_hex hex =
   Cstruct.to_bigarray (Hex.to_cstruct hex)
+
+let pp_hex ppf s =
+  let `Hex hex = to_hex s in
+  Format.pp_print_string ppf hex
diff --git a/src/lib_stdlib/mBytes.mli b/src/lib_stdlib/mBytes.mli
index 638c3e6c5..b63ec008c 100644
--- a/src/lib_stdlib/mBytes.mli
+++ b/src/lib_stdlib/mBytes.mli
@@ -21,3 +21,4 @@ module LE : EndianBigstring.EndianBigstringSig
 val make : int -> char -> t
 val of_hex : Hex.t -> t
 val to_hex : t -> Hex.t
+val pp_hex : Format.formatter -> t -> unit