Fix compilation with OCaml 4.08.0

Gbp-Pq: Name 0002-Fix-compilation-with-OCaml-4.08.0.patch

2 files changed, 4 insertions, 4 deletions

diff --git a/xstr_match.ml b/xstr_match.ml
index 2db9c34..335d80d 100644
--- a/xstr_match.ml
+++ b/xstr_match.ml
@@ -137,12 +137,12 @@ let noword_set() =
     
 
 let set_as_string set =
-  let s = String.make 32 ' ' in
+  let s = Bytes.make 32 ' ' in
   for i = 0 to 15 do
     s.[i+i]   <- Char.chr (set.(i) land 0xff);
     s.[i+i+1] <- Char.chr (set.(i) lsr 8);
   done;
-  s
+  Bytes.to_string s
 ;;
 
 
@@ -592,7 +592,7 @@ let replace_matched_substrings ml rl fl s =
   let length = total_length 0 transformer in
   let target = String.create length in
   form_replacement_ltor target transformer length;
-  target, !n_repl
+  Bytes.to_string target, !n_repl
 ;;
   
 
diff --git a/xstr_search.ml b/xstr_search.ml
index 8e212fa..e15df16 100644
--- a/xstr_search.ml
+++ b/xstr_search.ml
@@ -119,7 +119,7 @@ let rev_concat sep sl =
   in
 
   fill_in len sl;
-  t
+  Bytes.to_string t
 ;;