Add Char compatibility module for 4.02.3

This is needed for configurator
This commit is contained in:
Rudi Grinberg 2018-04-05 23:35:45 +08:00
parent 9f9a770b13
commit f19d5c69ee
2 changed files with 10 additions and 0 deletions

View File

@ -1,5 +1,6 @@
module Filename = Filename
module String = String
module Char = Char
module Result = Result
type ('a, 'error) result = ('a, 'error) Result.t =

9
src/stdune/char.ml Normal file
View File

@ -0,0 +1,9 @@
module Char = Caml.Char
include struct
[@@@warning "-32-3"]
let uppercase_ascii = Char.uppercase
let lowercase_ascii = Char.lowercase
end
include Char