Add Lib.Map
This commit is contained in:
parent
0a57a02819
commit
25d52d1e3a
|
@ -374,6 +374,12 @@ struct
|
||||||
let compare x y = compare x.unique_id y.unique_id
|
let compare x y = compare x.unique_id y.unique_id
|
||||||
end)
|
end)
|
||||||
|
|
||||||
|
module Map = Map.Make(
|
||||||
|
struct
|
||||||
|
type nonrec t = t
|
||||||
|
let compare x y = compare x.unique_id y.unique_id
|
||||||
|
end)
|
||||||
|
|
||||||
module L = struct
|
module L = struct
|
||||||
type nonrec t = t list
|
type nonrec t = t list
|
||||||
|
|
||||||
|
|
|
@ -32,6 +32,8 @@ val unique_id : t -> int
|
||||||
|
|
||||||
module Set : Set.S with type elt = t
|
module Set : Set.S with type elt = t
|
||||||
|
|
||||||
|
module Map : Map.S with type key = t
|
||||||
|
|
||||||
module Status : sig
|
module Status : sig
|
||||||
type t =
|
type t =
|
||||||
| Installed
|
| Installed
|
||||||
|
|
Loading…
Reference in New Issue