diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-12 15:33:40 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-12 15:33:40 +0000 |
| commit | de26e97cf37cafd37b83377d2df062a6e82676e7 (patch) | |
| tree | 1f093c94b7cb8ab59f301b9c5ee7ca712aa9fa0f /pretyping/typeclasses.mli | |
| parent | 9a9a8ab4c2a07aa8faa04f50d6250930220b5be5 (diff) | |
Use the Hook module here and there.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16510 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typeclasses.mli')
| -rw-r--r-- | pretyping/typeclasses.mli | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/pretyping/typeclasses.mli b/pretyping/typeclasses.mli index 46877a58f..c8f41841a 100644 --- a/pretyping/typeclasses.mli +++ b/pretyping/typeclasses.mli @@ -98,16 +98,16 @@ val resolve_typeclasses : ?filter:evar_filter -> ?split:bool -> ?fail:bool -> env -> evar_map -> evar_map val resolve_one_typeclass : env -> evar_map -> types -> open_constr -val register_set_typeclass_transparency : (evaluable_global_reference -> bool (*local?*) -> bool -> unit) -> unit +val set_typeclass_transparency_hook : (evaluable_global_reference -> bool (*local?*) -> bool -> unit) Hook.t val set_typeclass_transparency : evaluable_global_reference -> bool -> bool -> unit -val register_classes_transparent_state : (unit -> transparent_state) -> unit +val classes_transparent_state_hook : (unit -> transparent_state) Hook.t val classes_transparent_state : unit -> transparent_state -val register_add_instance_hint : - (global_reference_or_constr -> global_reference list -> - bool (* local? *) -> int option -> unit) -> unit -val register_remove_instance_hint : (global_reference -> unit) -> unit +val add_instance_hint_hook : + (global_reference_or_constr -> global_reference list -> + bool (* local? *) -> int option -> unit) Hook.t +val remove_instance_hint_hook : (global_reference -> unit) Hook.t val add_instance_hint : global_reference_or_constr -> global_reference list -> bool -> int option -> unit val remove_instance_hint : global_reference -> unit |