From 6b5735a3188d034452cace1e5fcd16cfca3ba36b Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 6 Mar 2018 22:27:52 -0600
Subject: [PATCH] fix compat with 4.02

---
 src/core/CCUtf8_string.ml | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/core/CCUtf8_string.ml b/src/core/CCUtf8_string.ml
index b21524ef..9c647cca 100644
--- a/src/core/CCUtf8_string.ml
+++ b/src/core/CCUtf8_string.ml
@@ -9,15 +9,14 @@ type uchar = Uchar.t
 type 'a gen = unit -> 'a option
 type 'a sequence = ('a -> unit) -> unit
 
-type t = string
+let equal (a:string) b = Pervasives.(=) a b
+let hash : string -> int = Hashtbl.hash
+let pp = Format.pp_print_string
+
+include String
 
 let to_string x = x
 
-let pp = Format.pp_print_string
-let equal = String.equal
-let compare = String.compare
-let hash : t -> int = Hashtbl.hash
-
 (** State for decoding *)
 module Dec = struct
   type t = {