aboutsummaryrefslogtreecommitdiff
path: root/pretyping/classops.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2019-06-03 14:32:18 +0200
committerGaëtan Gilbert2019-06-03 14:32:18 +0200
commit4541d28ba3c50bc8e45c4ccf418bbdd225454dec (patch)
tree2e308e2f0d081519f608969152b309e7922f2637 /pretyping/classops.ml
parent7032085c809993d6a173e51aec447c02828ae070 (diff)
Expose set interface to option tables
This lets us avoid having to cache the SearchBlacklist.elements call in search as we can just use the set module's for_all function.
Diffstat (limited to 'pretyping/classops.ml')
-rw-r--r--pretyping/classops.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml
index 90ce1cc594..70a9784238 100644
--- a/pretyping/classops.ml
+++ b/pretyping/classops.ml
@@ -441,7 +441,7 @@ let coercion_of_reference r =
module CoercionPrinting =
struct
type t = coe_typ
- let compare = GlobRef.Ordered.compare
+ module Set = GlobRef.Set
let encode _env = coercion_of_reference
let subst = subst_coe_typ
let printer x = Nametab.pr_global_env Id.Set.empty x