]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/gTopLevel/hbugs.mli
ocaml 3.09 transition
[helm.git] / helm / gTopLevel / hbugs.mli
index b98a641afedbf42d9e0d3d41d240ada0164498ed..80f8c74e9c3385de9c63b4ac99105cf5361c5057 100644 (file)
@@ -32,7 +32,7 @@ val toggle: bool -> unit
 
 val quit: unit -> unit
 
-       (** send current proof assistant state to hbugs broker *)
+  (** send current proof assistant state to hbugs broker *)
 val notify: unit -> unit
 
 val clear: unit -> unit
@@ -48,3 +48,10 @@ module Initialize (Tactics: InvokeTactics.Tactics) : Unit
 val start_web_services: unit -> unit
 val stop_web_services: unit -> unit
 
+(* Other callbacks *)
+
+open Hbugs_types
+
+  (* what to do when the user single click on an hint *)
+val set_describe_hint_callback: (hint -> unit) -> unit
+