1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open! Import
module type S = Make_substring.S
include Make_substring.F (struct
type t = Bytes.t [@@deriving quickcheck]
let create = Bytes.create
let length = Bytes.length
let get = Bytes.get
module Blit = Make_substring.Blit
let blit = Blit.bytes_bytes
let blit_to_string = Blit.bytes_bytes
let blit_to_bytes = Blit.bytes_bytes
let blit_to_bigstring = Blit.bytes_bigstring
let blit_from_string = Blit.string_bytes
let blit_from_bigstring = Blit.bigstring_bytes
end)