mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-21 22:53:37 +00:00
automake2junit.ml: string -> bytes
Make it usable OOTB with OCaml >= 4.02.0.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user