added "describe_hint_callback" invoked when a hint is selected

[helm.git] / helm / hbugs / client / main.ml

diff --git a/helm/hbugs/client/main.ml b/helm/hbugs/client/main.ml
index e694613c596df7daecd044bac09db495cd5af62b..85972ace3b4397f309169bdde69f77ff6cbb5095 100644 (file)
--- a/helm/hbugs/client/main.ml
+++ b/helm/hbugs/client/main.ml
@@ -34,6 +34,9 @@ let client =
     ~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 ();