devel/ocaml-camomile/files/patch-Camomile_public_uCS4.ml


1
2
3
4
5
6
7
8
9

--- Camomile/public/uCS4.ml.orig	2019-08-08 07:10:33 UTC
+++ Camomile/public/uCS4.ml
@@ -140,5 +140,5 @@ let compare (a:t) (b:t) =
 
 let compare (a:t) (b:t) =
   match Array1.dim a - Array1.dim b with
-    0 -> Pervasives.compare a b
+    0 -> Stdlib.compare a b
   | sgn -> sgn