From f19d5c69eed9115dc484738c62dcade163f0e971 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Thu, 5 Apr 2018 23:35:45 +0800
Subject: [PATCH] Add Char compatibility module for 4.02.3

This is needed for configurator
---
 src/stdune/caml/caml.ml | 1 +
 src/stdune/char.ml      | 9 +++++++++
 2 files changed, 10 insertions(+)
 create mode 100644 src/stdune/char.ml

diff --git a/src/stdune/caml/caml.ml b/src/stdune/caml/caml.ml
index a050ef96..82dc6ca9 100644
--- a/src/stdune/caml/caml.ml
+++ b/src/stdune/caml/caml.ml
@@ -1,5 +1,6 @@
 module Filename = Filename
 module String   = String
+module Char     = Char
 module Result   = Result
 
 type ('a, 'error) result = ('a, 'error) Result.t =
diff --git a/src/stdune/char.ml b/src/stdune/char.ml
new file mode 100644
index 00000000..a6c6b1ee
--- /dev/null
+++ b/src/stdune/char.ml
@@ -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