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
|
||||
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
|
||||
type nonrec t = t list
|
||||
|
||||
|
|
|
@ -32,6 +32,8 @@ val unique_id : t -> int
|
|||
|
||||
module Set : Set.S with type elt = t
|
||||
|
||||
module Map : Map.S with type key = t
|
||||
|
||||
module Status : sig
|
||||
type t =
|
||||
| Installed
|
||||
|
|
Loading…
Reference in New Issue