Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 65 lines (53 sloc) 1.644 kb
fccc685 Initial open-source release
MLstate authored
1 (*
2 Copyright © 2011 MLstate
3
4 This file is part of OPA.
5
6 OPA is free software: you can redistribute it and/or modify it under the
7 terms of the GNU Affero General Public License, version 3, as published by
8 the Free Software Foundation.
9
10 OPA is distributed in the hope that it will be useful, but WITHOUT ANY
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
12 FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
13 more details.
14
15 You should have received a copy of the GNU Affero General Public License
16 along with OPA. If not, see <http://www.gnu.org/licenses/>.
17 *)
18 module String : (OrderedTypeSig.S with type t = string) =
19 struct
20 type t = string
21 let compare = String.compare
22 end
23
24 module StringList : (OrderedTypeSig.S with type t = string list) =
25 struct
26 type t = string list
27 let compare = Pervasives.compare
28 end
29
30 module Float : (OrderedTypeSig.S with type t = float) =
31 struct
32 type t = float
33 let compare (a:float) = Pervasives.compare a
34 end
35
36 module Int : (OrderedTypeSig.S with type t = int) =
37 struct
38 type t = int
39 let compare (a:int) = Pervasives.compare a
40 end
41
42 module IntList : (OrderedTypeSig.S with type t = int list) =
43 struct
44 type t = int list
45 let compare (a:int list) = Pervasives.compare a
46 end
47
48 module Int32 : (OrderedTypeSig.S with type t = int32) =
49 struct
50 type t = int32
51 let compare = Int32.compare
52 end
53
54 module Int64 : (OrderedTypeSig.S with type t = int64) =
55 struct
56 type t = int64
57 let compare = Int64.compare
58 end
59
60 module Char : (OrderedTypeSig.S with type t = char) =
61 struct
62 type t = char
63 let compare = Char.compare
64 end
Something went wrong with that request. Please try again.