Commit 6b71eb65 authored by Gerd Stolpmann's avatar Gerd Stolpmann

fix: type annotation for older OCaml versions

parent f70d0baa
......@@ -297,7 +297,7 @@ module A = struct
let write os str pos len =
match os with
match (os:output_stream) with
`Out_buffer b -> Buffer.add_substring b str pos len
| `Out_channel ch -> output ch (Bytes.unsafe_of_string str) pos len
(* FIXME: use output_substring instead *)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment