From 6c8de1bc6432b0dc48b87d5166cdc542f8a5430a Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 18 Apr 2017 22:04:37 +0200
Subject: [PATCH] small fix

---
 src/core/CCString.cppo.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/CCString.cppo.ml b/src/core/CCString.cppo.ml
index 71a01709..9592a53d 100644
--- a/src/core/CCString.cppo.ml
+++ b/src/core/CCString.cppo.ml
@@ -718,7 +718,7 @@ let equal_caseless s1 s2: bool =
   in
   String.length s1 = String.length s2 &&
   for_all2
-    (fun c1 c2 -> Char.equal (char_lower c1) (char_lower c2))
+    (fun c1 c2 -> char_lower c1 = char_lower c2)
     s1 s2
 
 let pp buf s =