diff options
| author |  xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-14 08:46:20 +0000 |
|---|---|---|
| committer | xclerc <xclerc@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-14 08:46:20 +0000 |
| commit | 3f4e97e0b0e0ce0a38f128018caffc95b452b34c (patch) | |
| tree | 15e02aa14d66b5bcce3b5b37b363f10a7852042a /tools/coqdoc/tokens.ml | |
| parent | 2a20061cc2790eedee7fab6230fe1dd2b4d58c24 (diff) | |
Avoid polymorphic comparison (coqdoc).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16884 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools/coqdoc/tokens.ml')
| -rw-r--r-- | tools/coqdoc/tokens.ml | 5 |
1 files changed, 4 insertions, 1 deletions
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; |