Fix compilation with OCaml 4.08.0

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

1 files changed, 2 insertions, 2 deletions

diff --git a/setup.ml b/setup.ml
index e18726f..50892b0 100644
--- a/setup.ml
+++ b/setup.ml
@@ -210,11 +210,11 @@ module OASISString = struct
       raise Not_found
 
   let replace_chars f s =
-    let buf = String.make (String.length s) 'X' in
+    let buf = Bytes.make (String.length s) 'X' in
       for i = 0 to String.length s - 1 do
         buf.[i] <- f s.[i]
       done;
-      buf
+      Bytes.to_string buf
 
 end