From e41da6e5e792cda94f2334ddc9a3140e792d5ef9 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 13 Nov 2012 23:00:11 +0000
Subject: Small uniformization in String

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15970 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/flags.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/flags.ml')

diff --git a/lib/flags.ml b/lib/flags.ml
index 4ec3787931..ffb324d535 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -104,7 +104,7 @@ let print_hyps_limit () = !print_hyps_limit
 module StringOrd =
 struct
   type t = string
-  let compare (x : t) (y : t) = String.compare x y
+  let compare = String.compare
 end
 
 module Stringset = Set.Make(StringOrd)
-- 
cgit v1.2.3