Source file `bytebuffer.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
include Http_bytebuffer.Bytebuffer

include
  Http_bytebuffer.Bytebuffer.Make
    (struct
      include Lwt

      let ( >>| ) x f = Lwt.map f x
    end)
    (struct
      type src = bytes -> pos:int -> len:int -> [ `Ok of int | `Eof ] Lwt.t

      let refill src = src
    end)