diff options
| author | Pierre-Marie Pédrot | 2018-11-28 08:47:40 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-28 08:47:40 +0100 |
| commit | b106042cc1d752e69c0f3d218d794a79f27853cc (patch) | |
| tree | 60b77d18c9abd10d2439eb0b5ce7ab7a2d02796a /pretyping/typeclasses.ml | |
| parent | 7db1dbb91439eecad777064fcbb8a8e904fc690d (diff) | |
| parent | df85d9b765940b58a189b91cfdc67be7e0fd75e3 (diff) | |
Merge PR #8727: [options] New helper for creation of boolean options plus reference.
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index c68890a87f..18c9650bd1 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -31,19 +31,12 @@ type 'a hint_info_gen = type hint_info = (Pattern.patvar list * Pattern.constr_pattern) hint_info_gen -let typeclasses_unique_solutions = ref false -let set_typeclasses_unique_solutions d = (:=) typeclasses_unique_solutions d -let get_typeclasses_unique_solutions () = !typeclasses_unique_solutions - -open Goptions - -let () = - declare_bool_option - { optdepr = false; - optname = "check that typeclasses proof search returns unique solutions"; - optkey = ["Typeclasses";"Unique";"Solutions"]; - optread = get_typeclasses_unique_solutions; - optwrite = set_typeclasses_unique_solutions; } +let get_typeclasses_unique_solutions = + Goptions.declare_bool_option_and_ref + ~depr:false + ~name:"check that typeclasses proof search returns unique solutions" + ~key:["Typeclasses";"Unique";"Solutions"] + ~value:false let (add_instance_hint, add_instance_hint_hook) = Hook.make () let add_instance_hint id = Hook.get add_instance_hint id |