package core

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file substring.ml

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)