From 3f4e97e0b0e0ce0a38f128018caffc95b452b34c Mon Sep 17 00:00:00 2001
From: xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 14 Oct 2013 08:46:20 +0000
Subject: Avoid polymorphic comparison (coqdoc).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16884 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tools/coqdoc/tokens.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'tools')

diff --git a/tools/coqdoc/tokens.ml b/tools/coqdoc/tokens.ml
index 7c6c1f092..f159e9911 100644
--- a/tools/coqdoc/tokens.ml
+++ b/tools/coqdoc/tokens.ml
@@ -15,7 +15,10 @@
     (code copied from parsing/lexer.ml4 for the use of coqdoc, Apr 2010)
 *)
 
-module CharMap = Map.Make (struct type t = char let compare = compare end)
+module CharMap = Map.Make (struct
+  type t = char
+  let compare (x : t) (y : t) = compare x y
+end)
 
 type ttree = {
   node : string option;
-- 
cgit v1.2.3