Source file `char.ml`

1
2
3
4
5
6
7
8
9
module Char = Dune_caml.Char

include struct
  [@@@warning "-32-3"]
  let uppercase_ascii    = Char.uppercase
  let lowercase_ascii    = Char.lowercase
end

include Char