(try
while true do
let bytes = Gzip.input ic buf 0 bufsiz in
- if bytes = 0 then raise End_of_file else Pervasives.output oc buf 0 bytes
+ if bytes = 0 then raise End_of_file else Stdlib.output oc buf 0 bytes
done
with End_of_file -> ());
close_out oc;
let flat_string s s' c =
let cs = Bytes.of_string s in
for i = 0 to (String.length s) - 1 do
- if String.contains s' s.[i] then cs.[i] <- c
+ if String.contains s' s.[i] then Bytes.set cs i c
done;
Bytes.to_string cs
in