Add Char compatibility module for 4.02.3
This is needed for configurator
This commit is contained in:
parent
9f9a770b13
commit
f19d5c69ee
|
@ -1,5 +1,6 @@
|
|||
module Filename = Filename
|
||||
module String = String
|
||||
module Char = Char
|
||||
module Result = Result
|
||||
|
||||
type ('a, 'error) result = ('a, 'error) Result.t =
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue