diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2007-01-30 09:34:36 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2007-01-30 09:34:36 +0000 |
| commit | 6ce858f4a8cff5682a88f2978eb5a7618e48def6 (patch) | |
| tree | b1df0f592d045b9b4fc95852c1f305eb7cffed73 /stdlib/string.ml | |
| parent | 959fa08e78ecadb5bc241d05511537766bfe809b (diff) | |
| download | ocaml-6ce858f4a8cff5682a88f2978eb5a7618e48def6.tar.gz | |
Ensure type specialization for the 'compare' functions (PR#4194)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7818 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/string.ml')
| -rw-r--r-- | stdlib/string.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/string.ml b/stdlib/string.ml index 00b4b3d832..dc1e6418d1 100644 --- a/stdlib/string.ml +++ b/stdlib/string.ml @@ -174,4 +174,4 @@ let contains s c = contains_from s 0 c;; type t = string -let compare = (Pervasives.compare: t -> t -> int) +let compare (x: t) (y: t) = Pervasives.compare x y |