blob: 97d8022ea9e5c24b25d93640a99942d575c0aea9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
type 'a t = UTF8.Buffer.buffer -> unit
type 'a obs = UTF8.Buffer.buffer -> unit
let cell t buffer =
UTF8.Buffer.add_string buffer @@ Cell.to_string t
let range c1 c2 buffer =
Tools.Tuple2.printb ~first:"" ~last:"" ~sep:":" Cell.to_buffer Cell.to_buffer buffer (c1, c2)
let observe elem buffer = elem buffer
|