diff options
author | 2014-03-13 15:59:02 +0100 | |
---|---|---|
committer | 2014-03-13 16:04:33 +0100 | |
commit | 223c68e38e217d9457c476d5534b6aaf0ad2caf6 (patch) | |
tree | db26ed390c710db8f9848283914216d037fa104b | |
parent | c9b1caaa5516d616e400faa7a7c0278c8677c51c (diff) |
Stateid: export a Set module
-rw-r--r-- | lib/stateid.ml | 3 | ||||
-rw-r--r-- | lib/stateid.mli | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/stateid.ml b/lib/stateid.ml index 1eac4bf3f..09cc2b7e8 100644 --- a/lib/stateid.ml +++ b/lib/stateid.ml @@ -36,3 +36,6 @@ let get exn = Exninfo.get exn state_id_info let equal = Int.equal let compare = Int.compare + +module Set = Set.Make(struct type t = int let compare = compare end) + diff --git a/lib/stateid.mli b/lib/stateid.mli index 27b083efd..11fac7a92 100644 --- a/lib/stateid.mli +++ b/lib/stateid.mli @@ -13,6 +13,8 @@ type t val equal : t -> t -> bool val compare : t -> t -> int +module Set : Set.S with type elt = t + val initial : t val dummy : t val fresh : unit -> t |