added methods to start/stop web services

[helm.git] / helm / gTopLevel / hbugs.ml

diff --git a/helm/gTopLevel/hbugs.ml b/helm/gTopLevel/hbugs.ml
index 753f3fc787e89d8cdc3690de376700ef16fb8c68..19722a1d27c0446a2ac5a5313a5285401bb01ecf 100644 (file)
--- a/helm/gTopLevel/hbugs.ml
+++ b/helm/gTopLevel/hbugs.ml
@@ -54,7 +54,6 @@ let get_hbugs_client () =
 let disable () =
        match !hbugs_client with None -> () | Some c -> c#hide ()
 
-       (** send current proof assistant state to hbugs broker *)
 let notify () =
        try
                if !hbugs_enabled then begin
@@ -131,3 +130,7 @@ module Initialize (Tactics: InvokeTactics.Tactics) : Unit =
 
     let _ = use_hint_callback := use_hint
   end
+
+let start_web_services () = ignore (Unix.system "make -C ../hbugs/ start")
+let stop_web_services () = ignore (Unix.system "make -C ../hbugs/ stop")
+