Source file `strings.ml`

1
2
3
4
5
6
7
8
9
10
11
module UsualString : Match.S with type ch = char and type t = string = struct
  type ch = char
  type t = string

  let length = String.length
  let get = String.get

  let equal = Char.equal
end

include Match.Make(UsualString)