Source file `byte_output.ml`

1
2
3
4
5
6
7
8
9
10
11
type t = Buffer.t

let create ?(initial_size = 1024) () = Buffer.create initial_size

let write_byte = Buffer.add_char

let write_bytes = Buffer.add_string

let write_bytes' = Buffer.add_bytes

let contents = Buffer.contents