From 3fe83ccc5e70187cf5011f6553eb891c5d4a2c3f Mon Sep 17 00:00:00 2001 From: Sam Damashek Date: Wed, 15 Jul 2020 11:17:48 -0400 Subject: [PATCH] Remove deprecated Stdlib.Pervasives Replace Stdlib.Pervasives.compare with Stdlib.compare --- lib_test/test_vcr.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib_test/test_vcr.ml b/lib_test/test_vcr.ml index d07cf2d..5967e18 100644 --- a/lib_test/test_vcr.ml +++ b/lib_test/test_vcr.ml @@ -14,7 +14,7 @@ end module V2 = struct type t = X | Y - let compare = Pervasives.compare + let compare = Stdlib.compare let hash = function | X -> 0 | Y -> 1 let to_string = function | X -> "X" | Y -> "Y" end @@ -22,7 +22,7 @@ end module C = struct type t = Int32.t - let compare = Pervasives.compare + let compare = Stdlib.compare let equal a b = compare a b = 0 let hash a = Int32.to_int a