automake2junit.ml: string -> bytes

Make it usable OOTB with OCaml >= 4.02.0.
This commit is contained in:
Pino Toscano
2019-01-14 15:18:34 +01:00
parent 7f97433a3c
commit 27cd2888c3

View File

@@ -39,7 +39,7 @@ let read_whole_file path =
let rec loop () =
let r = input chan s 0 maxlen in
if r > 0 then (
Buffer.add_substring buf s 0 r;
Buffer.add_subbytes buf s 0 r;
loop ()
)
in