Quote and escape bytes in QCheck{,2}.Print too

c-cube · Dec 7, 2024 · abbc41b · abbc41b
1 parent 3639d68
commit abbc41b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/core/QCheck.ml b/src/core/QCheck.ml
@@ -479,8 +479,8 @@ module Print = struct
   let int = string_of_int
   let bool = string_of_bool
   let float = string_of_float
-  let bytes = Bytes.to_string
   let string s = Printf.sprintf "%S" s
+  let bytes b = string (Bytes.to_string b)
   let char c = Printf.sprintf "%C" c
 
   let option f = function

diff --git a/src/core/QCheck2.ml b/src/core/QCheck2.ml
@@ -797,10 +797,10 @@ module Print = struct
 
   let float = string_of_float
 
-  let bytes = Bytes.to_string
-
   let string s = Printf.sprintf "%S" s
 
+  let bytes b = string (Bytes.to_string b)
+
   let char c = Printf.sprintf "%C" c
 
   let option f = function