X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhbugs%2Fclient%2Fmain.ml;h=85972ace3b4397f309169bdde69f77ff6cbb5095;hb=0de1b960f42ac368414b7405a79e7933445ee8af;hp=cfb4f8ba1c676b4d33c02fe5654a96ac736ec5e8;hpb=9aacfb2ddb32a1481ff42c51279ced80cc59a16e;p=helm.git

diff --git a/helm/hbugs/client/main.ml b/helm/hbugs/client/main.ml
index cfb4f8ba1..85972ace3 100644
--- a/helm/hbugs/client/main.ml
+++ b/helm/hbugs/client/main.ml
@@ -31,9 +31,12 @@ open Printf;;
 
 let client =
   new Hbugs_client.hbugsClient
-    ~on_use_hint:
+    ~use_hint_callback:
       (fun hint ->
         prerr_endline (sprintf "Using hint: %s" (string_of_hint hint)))
+    ~describe_hint_callback:
+      (fun hint ->
+        prerr_endline (sprintf "Describing hint: %s" (string_of_hint hint)))
     ()
 in
 client#show ();