open ExtBytes
module Buffer = struct
include Buffer
#if OCAML < 402
(* The uses of unsafe_{of,to}_string above are not semantically
justified, as the Buffer implementation may very well capture and
share parts of its internal buffer, or of input string given as
input.
They are however correct with respect to the implementation being
used in OCaml 4.02.0; this implementation must be revisited if
the string representation changes. *)
let to_bytes b =
Bytes.unsafe_of_string (contents b)
let add_subbytes b s offset len =
add_substring b (Bytes.unsafe_to_string s) offset len
let add_bytes b s = add_string b (Bytes.unsafe_to_string s)
#endif
end