Source file `bigsubstring.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open! Import

include Make_substring.F (struct
  type t = Bigstring.t [@@deriving quickcheck]

  let create = Bigstring.create
  let length = Bigstring.length
  let get = Bigstring.get

  module Blit = Make_substring.Blit

  let blit = Blit.bigstring_bigstring
  let blit_to_string = Blit.bigstring_bytes
  let blit_to_bytes = Blit.bigstring_bytes
  let blit_to_bigstring = Blit.bigstring_bigstring
  let blit_from_string = Blit.string_bigstring
  let blit_from_bigstring = Blit.bigstring_bigstring
end)