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 Filename = Filename
|
||||||
module String = String
|
module String = String
|
||||||
|
module Char = Char
|
||||||
module Result = Result
|
module Result = Result
|
||||||
|
|
||||||
type ('a, 'error) result = ('a, 'error) Result.t =
|
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