On-going porting to lablgtk3

[helm.git] / matita / components / extlib / hExtlib.ml

diff --git a/matita/components/extlib/hExtlib.ml b/matita/components/extlib/hExtlib.ml
index 8871a35df0cc30f3bf1a4e27aacd9216c9097dd0..5761010531eca5fe6a0b40c57eee94c0d2a8daa7 100644 (file)
--- a/matita/components/extlib/hExtlib.ml
+++ b/matita/components/extlib/hExtlib.ml
@@ -460,12 +460,12 @@ let input_file fname =
 let input_all ic =
   let size = 10240 in
   let buf = Buffer.create size in
-  let s = String.create size in
+  let s = Bytes.create size in
   (try
     while true do
       let bytes = input ic s 0 size in
       if bytes = 0 then raise End_of_file
-      else Buffer.add_substring buf s 0 bytes
+      else Buffer.add_subbytes buf s 0 bytes
     done
   with End_of_file -> ());
   Buffer.contents buf